Initial Commit

database/perl/vendor/lib/PPI/Structure/Block.pm

@@ -0,0 +1,82 @@
+package PPI::Structure::Block;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::Block - Curly braces representing a code block
+
+=head1 SYNOPSIS
+
+  sub foo { ... }
+  
+  grep { ... } @list;
+  
+  if ( condition ) {
+      ...
+  }
+  
+  LABEL: {
+      ...
+  }
+
+=head1 INHERITANCE
+
+  PPI::Structure::Block
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::Block> is the class used for all curly braces that
+represent code blocks. This includes subroutines, compound statements
+and any other block braces.
+
+=head1 METHODS
+
+C<PPI::Structure::Block> has no methods beyond those provided by the
+standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+
+
+
+
+#####################################################################
+# PPI::Element Methods
+
+# This is a scope boundary
+sub scope() { 1 }
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut

database/perl/vendor/lib/PPI/Structure/Condition.pm

@@ -0,0 +1,67 @@
+package PPI::Structure::Condition;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::Condition - Round braces for boolean context conditions
+
+=head1 SYNOPSIS
+
+  if ( condition ) {
+      ...
+  }
+  
+  while ( condition ) {
+      ...
+  }
+
+=head1 INHERITANCE
+
+  PPI::Structure::Condition
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::Condition> is the class used for all round braces
+that represent boolean contexts used in various conditions.
+
+=head1 METHODS
+
+C<PPI::Structure::Condition> has no methods beyond those provided by
+the standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut

database/perl/vendor/lib/PPI/Structure/Constructor.pm

@@ -0,0 +1,62 @@
+package PPI::Structure::Constructor;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::Constructor - Anonymous hash or array constructor
+
+=head1 SYNOPSIS
+
+  my $array = [ 'foo', 'bar' ];
+  my $hash  = { foo => 'bar' };
+
+=head1 INHERITANCE
+
+  PPI::Structure::Constructor
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::Constructor> is the class used for anonymous C<ARRAY>
+reference of C<HASH> reference constructors.
+
+=head1 METHODS
+
+C<PPI::Structure::Constructor> has no methods beyond those provided by
+the standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut

database/perl/vendor/lib/PPI/Structure/For.pm

@@ -0,0 +1,77 @@
+package PPI::Structure::For;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::For - Circular braces for a for expression
+
+=head1 SYNOPSIS
+
+  for ( var $i = 0; $i < $max; $i++ ) {
+      ...
+  }
+
+=head1 INHERITANCE
+
+  PPI::Structure::For
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::For> is the class used for circular braces that
+contain the three part C<for> expression.
+
+=head1 METHODS
+
+C<PPI::Structure::For> has no methods beyond those provided by the
+standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+# Highly special custom isa method that will continue to respond
+# positively to ->isa('PPI::Structure::ForLoop') but warns.
+my $has_warned = 0;
+sub isa {
+	if ( $_[1] and $_[1] eq 'PPI::Structure::ForLoop' ) {
+		unless ( $has_warned ) {
+			warn("PPI::Structure::ForLoop has been deprecated");
+			$has_warned = 1;
+		}
+		return 1;
+	}
+	return shift->SUPER::isa(@_);
+}
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut

database/perl/vendor/lib/PPI/Structure/Given.pm

@@ -0,0 +1,63 @@
+package PPI::Structure::Given;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::Given - Circular braces for a switch statement
+
+=head1 SYNOPSIS
+
+  given ( something ) {
+      ...
+  }
+
+=head1 INHERITANCE
+
+  PPI::Structure::Given
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::Given> is the class used for circular braces that
+contain the thing to be matched in a switch statement.
+
+=head1 METHODS
+
+C<PPI::Structure::Given> has no methods beyond those provided by the
+standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut

database/perl/vendor/lib/PPI/Structure/List.pm

@@ -0,0 +1,87 @@
+package PPI::Structure::List;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::List - Explicit list or precedence ordering braces
+
+=head1 SYNOPSIS
+
+  # A list used for params
+  function( 'param', 'param' );
+  
+  # Explicit list
+  return ( 'foo', 'bar' );
+
+=head1 INHERITANCE
+
+  PPI::Structure::List
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::List> is the class used for circular braces that
+represent lists, and related.
+
+=head1 METHODS
+
+C<PPI::Structure::List> has no methods beyond those provided by the
+standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use Carp           ();
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+# Highly special custom isa method that will continue to respond
+# positively to ->isa('PPI::Structure::ForLoop') but warns.
+my $has_warned = 0;
+sub isa {
+	if ( $_[1] and $_[1] eq 'PPI::Structure::ForLoop' ) {
+		if (
+			$_[0]->parent->isa('PPI::Statement::Compound')
+			and
+			$_[0]->parent->type =~ /^for/
+		) {
+			unless ( $has_warned ) {
+				local $Carp::CarpLevel = $Carp::CarpLevel + 1;
+				Carp::carp("PPI::Structure::ForLoop has been deprecated");
+				$has_warned = 1;
+			}
+			return 1;
+		}
+	}
+	return shift->SUPER::isa(@_);
+}
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut

database/perl/vendor/lib/PPI/Structure/Subscript.pm

@@ -0,0 +1,68 @@
+package PPI::Structure::Subscript;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::Subscript - Braces that represent an array or hash subscript
+
+=head1 SYNOPSIS
+
+  # The end braces for all of the following are subscripts
+  $foo->[...]
+  $foo[...]
+  $foo{...}[...]
+  $foo->{...}
+  $foo{...}
+  $foo[]{...}
+
+=head1 INHERITANCE
+
+  PPI::Structure::Subscript
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::Subscript> is the class used for square and curly
+braces that specify one element of an array or hash (or a slice/subset
+of an array or hash)
+
+=head1 METHODS
+
+C<PPI::Structure::Subscript> has no methods beyond those provided by the
+standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut

database/perl/vendor/lib/PPI/Structure/Unknown.pm

@@ -0,0 +1,69 @@
+package PPI::Structure::Unknown;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::Unknown - An unknown or unresolved brace structure
+
+=head1 INHERITANCE
+
+  PPI::Structure::Unknown
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::Unknown> is class for braces whose type is unknown, or
+temporarily unknown.
+
+It primarily exists temporarily inside the lexer. Although some types of
+braces can be determined immediately at opening, there are a number of
+different brace types that can only be correctly identified after the
+braces are closed.
+
+A structure is typed as unknown during this period it is indeterminate.
+
+A C<PPI::Structure::Unknown> object should not B<ever> make it out of the
+lexer without being converted to its final type. Any time you encounter
+this class in a PDOM tree it should be considered a bug and reported
+accordingly.
+
+=head1 METHODS
+
+C<PPI::Structure::Unknown> has no methods beyond those provided by the
+standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut

database/perl/vendor/lib/PPI/Structure/When.pm

@@ -0,0 +1,63 @@
+package PPI::Structure::When;
+
+=pod
+
+=head1 NAME
+
+PPI::Structure::When - Circular braces for a when statement
+
+=head1 SYNOPSIS
+
+  when ( something ) {
+      ...
+  }
+
+=head1 INHERITANCE
+
+  PPI::Structure::When
+  isa PPI::Structure
+      isa PPI::Node
+          isa PPI::Element
+
+=head1 DESCRIPTION
+
+C<PPI::Structure::When> is the class used for circular braces that
+contain the thing to be matched in a when statement.
+
+=head1 METHODS
+
+C<PPI::Structure::When> has no methods beyond those provided by the
+standard L<PPI::Structure>, L<PPI::Node> and L<PPI::Element> methods.
+
+=cut
+
+use strict;
+use PPI::Structure ();
+
+our $VERSION = '1.270'; # VERSION
+
+our @ISA = "PPI::Structure";
+
+1;
+
+=pod
+
+=head1 SUPPORT
+
+See the L<support section|PPI/SUPPORT> in the main module.
+
+=head1 AUTHOR
+
+Adam Kennedy E<lt>adamk@cpan.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2001 - 2011 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut