Changeset 6761

Timestamp:

09/06/05 01:46:05 (3 years ago)

Author:

Darren_Duncan

Message:

/perl5/Code-Perl : updated all files to replace tabs with 4 spaces each

Location:

perl5/Code-Perl

Files:

• MANIFEST (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Code/Perl/Base.pm (modified) (1 diff)
• lib/Code/Perl/Expr.pm (modified) (14 diffs)
• lib/Code/Perl/Expr/Append.pm (modified) (1 diff)
• lib/Code/Perl/Expr/CallMethod.pm (modified) (1 diff)
• lib/Code/Perl/Expr/CallSub.pm (modified) (1 diff)
• lib/Code/Perl/Expr/Constant.pm (modified) (1 diff)
• lib/Code/Perl/Expr/DerefArray.pm (modified) (1 diff)
• lib/Code/Perl/Expr/DerefHash.pm (modified) (1 diff)
• lib/Code/Perl/Expr/Holder.pm (modified) (1 diff)
• lib/Code/Perl/Expr/Infix.pm (modified) (1 diff)
• lib/Code/Perl/Expr/List.pm (modified) (1 diff)
• lib/Code/Perl/Expr/Not.pm (modified) (1 diff)
• lib/Code/Perl/Expr/Number.pm (modified) (1 diff)
• lib/Code/Perl/Expr/Perl.pm (modified) (1 diff)
• lib/Code/Perl/Expr/Scalar.pm (modified) (1 diff)
• lib/Code/Perl/Expr/String.pm (modified) (1 diff)
• lib/Code/Perl/Expr/SubName.pm (modified) (1 diff)
• lib/Code/Perl/Test/Expr.pm (modified) (2 diffs)
• t/expr.t (modified) (2 diffs)

perl5/Code-Perl/MANIFEST

@@ -2 +2 @@
 README
 LGPL
-MANIFEST                        This list of files
+MANIFEST            This list of files
 Makefile.PL
 TODO

perl5/Code-Perl/Makefile.PL

@@ -17 +17 @@
 
 WriteMakefile(
-        AUTHOR => 'Fergal Daly <fergal@esatclear.ie>',
-        NAME => $module,
-        VERSION_FROM => $pm_file,
-        INSTALLDIRS => 'perl',
-        PREREQ_PM => {
-                'Class::MethodMaker' => 0,
-                'Test::Deep' => '0.05'
-        },
-        dist => {
-                PREOP=> "rm -f README; pod2text -80 < $doc_file > README; cp -f README $dir-\$(VERSION); "
-        }
+    AUTHOR => 'Fergal Daly <fergal@esatclear.ie>',
+    NAME => $module,
+    VERSION_FROM => $pm_file,
+    INSTALLDIRS => 'perl',
+    PREREQ_PM => {
+        'Class::MethodMaker' => 0,
+        'Test::Deep' => '0.05'
+    },
+    dist => {
+        PREOP=> "rm -f README; pod2text -80 < $doc_file > README; cp -f README $dir-\$(VERSION); "
+    }
 );

perl5/Code-Perl/lib/Code/Perl/Base.pm

@@ -7 +7 @@
 sub new
 {
-        my $pkg = shift;
+    my $pkg = shift;
 
-        my %args = @_;
-        my $self = bless \%args, $pkg;
+    my %args = @_;
+    my $self = bless \%args, $pkg;
 
-        $self->init;
+    $self->init;
 
-        return $self;
+    return $self;
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr.pm

@@ -23 +23 @@
 
 our %EXPORT_TAGS = (
-        easy => [qw( scal number string list derefh derefa calls callm boolnot perl
-                append holder subname )],
+    easy => [qw( scal number string list derefh derefa calls callm boolnot perl
+        append holder subname )],
 );
 
@@ -74 +74 @@
 sub number
 {
-        return Code::Perl::Expr::Number->new(
-                Value => shift
-        );
+    return Code::Perl::Expr::Number->new(
+        Value => shift
+    );
 }
 
@@ -96 +96 @@
 sub string
 {
-        return Code::Perl::Expr::String->new(
-                Value => shift
-        );
+    return Code::Perl::Expr::String->new(
+        Value => shift
+    );
 }
 
@@ -117 +117 @@
 sub scal
 {
-        return Code::Perl::Expr::Scalar->new(
-                Name => shift
-        );
+    return Code::Perl::Expr::Scalar->new(
+        Name => shift
+    );
 }
 
@@ -138 +138 @@
 sub list
 {
-        return Code::Perl::Expr::List->new(
-                Value => [@_]
-        );
+    return Code::Perl::Expr::List->new(
+        Value => [@_]
+    );
 }
 
@@ -159 +159 @@
 sub boolnot
 {
-        return Code::Perl::Expr::Not->new(
-                Expr => shift,
-        );
+    return Code::Perl::Expr::Not->new(
+        Expr => shift,
+    );
 }
 
@@ -181 +181 @@
 sub append
 {
-        return Code::Perl::Expr::Append->new(
-                Exprs => [@_],
-        );
+    return Code::Perl::Expr::Append->new(
+        Exprs => [@_],
+    );
 }
 
@@ -208 +208 @@
 sub derefh
 {
-        my $hash = shift;
-        my $index = shift;
-        if (! ref($index))
-        {
-                $index = string($index);
-        }
-
-        return Code::Perl::Expr::DerefHash->new(
-                Ref => $hash,
-                Key => $index
-        );
+    my $hash = shift;
+    my $index = shift;
+    if (! ref($index))
+    {
+        $index = string($index);
+    }
+
+    return Code::Perl::Expr::DerefHash->new(
+        Ref => $hash,
+        Key => $index
+    );
 }
 
@@ -241 +241 @@
 sub derefa
 {
-        my $hash = shift;
-        my $index = shift;
-        if (! ref($index))
-        {
-                $index = number($index);
-        }
-
-        return Code::Perl::Expr::DerefArray->new(
-                Ref => $hash,
-                Index => $index
-        );
+    my $hash = shift;
+    my $index = shift;
+    if (! ref($index))
+    {
+        $index = number($index);
+    }
+
+    return Code::Perl::Expr::DerefArray->new(
+        Ref => $hash,
+        Index => $index
+    );
 }
 
@@ -267 +267 @@
 sub subname
 {
-        return Code::Perl::Expr::SubName->new(
-                Value => shift,
-        );
+    return Code::Perl::Expr::SubName->new(
+        Value => shift,
+    );
 }
 
@@ -295 +295 @@
 sub calls
 {
-        my $subname = shift;
-        if (! ref($subname))
-        {
-                $subname = subname($subname);
-        }
-
-        return Code::Perl::Expr::CallSub->new(
-                SubName => $subname,
-                Args => list(@_)
-        );
+    my $subname = shift;
+    if (! ref($subname))
+    {
+        $subname = subname($subname);
+    }
+
+    return Code::Perl::Expr::CallSub->new(
+        SubName => $subname,
+        Args => list(@_)
+    );
 }
 
@@ -333 +333 @@
 sub callm
 {
-        my $object = shift;
-        my $method = shift;
-        if (! ref($method))
-        {
-                $method = subname($method);
-        }
-
-        return Code::Perl::Expr::CallMethod->new(
-                Object => $object,
-                MethodName => $method,
-                Args => list(@_)
-        );
+    my $object = shift;
+    my $method = shift;
+    if (! ref($method))
+    {
+        $method = subname($method);
+    }
+
+    return Code::Perl::Expr::CallMethod->new(
+        Object => $object,
+        MethodName => $method,
+        Args => list(@_)
+    );
 }
 
@@ -364 +364 @@
 sub perl
 {
-        return Code::Perl::Expr::Perl->new(
-                Perl => shift,
-        );
+    return Code::Perl::Expr::Perl->new(
+        Perl => shift,
+    );
 }
 
@@ -399 +399 @@
 sub holder
 {
-        return Code::Perl::Expr::Holder->new(
-                Expr => shift,
-        );
+    return Code::Perl::Expr::Holder->new(
+        Expr => shift,
+    );
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/Append.pm

@@ -9 +9 @@
 sub init
 {
-        my $self = shift;
+    my $self = shift;
 
-        $self->setOp(".");
+    $self->setOp(".");
 }
 
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $exprs = $self->getExprs;
-        return join("", map {$_->eval} @$exprs);
+    my $exprs = $self->getExprs;
+    return join("", map {$_->eval} @$exprs);
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/CallMethod.pm

@@ -8 +8 @@
 
 use Class::MethodMaker (
-        get_set => [qw( -java Object MethodName Args )]
+    get_set => [qw( -java Object MethodName Args )]
 );
 
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $object = $self->getObject;
-        my $methodname = $self->getMethodName->eval;
-        my $args = $self->getArgs;
+    my $object = $self->getObject;
+    my $methodname = $self->getMethodName->eval;
+    my $args = $self->getArgs;
 
-        return $object->eval->$methodname($args->eval);
+    return $object->eval->$methodname($args->eval);
 }
 
 sub perl
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $object = $self->getObject->perl;
-        my $methodname = $self->getMethodName->perl;
-        my $args = $self->getArgs->perl;
+    my $object = $self->getObject->perl;
+    my $methodname = $self->getMethodName->perl;
+    my $args = $self->getArgs->perl;
 
-        return "($object)->$methodname($args)";
+    return "($object)->$methodname($args)";
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/CallSub.pm

@@ -8 +8 @@
 
 use Class::MethodMaker (
-        get_set => [qw( -java SubName Args )]
+    get_set => [qw( -java SubName Args )]
 );
 
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $subname = $self->getSubName->eval;
-        my $args = $self->getArgs;
+    my $subname = $self->getSubName->eval;
+    my $args = $self->getArgs;
 
-        no strict 'refs';
-        return &{$subname}($args->eval);
+    no strict 'refs';
+    return &{$subname}($args->eval);
 }
 
 sub perl
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $subname = $self->getSubName;
-        my $subname_perl = $subname->perl;
-        my $args = $self->getArgs->perl;
+    my $subname = $self->getSubName;
+    my $subname_perl = $subname->perl;
+    my $args = $self->getArgs->perl;
 
-        return ref($subname) eq "Code::Perl::Expr::SubName" ?
-                "$subname_perl($args)" :
-                "&{$subname_perl}($args)";
+    return ref($subname) eq "Code::Perl::Expr::SubName" ?
+        "$subname_perl($args)" :
+        "&{$subname_perl}($args)";
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/Constant.pm

@@ -8 +8 @@
 
 use Class::MethodMaker (
-        get_set => [qw( -java Value )]
+    get_set => [qw( -java Value )]
 );
 
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        return $self->getValue;
+    return $self->getValue;
 }
 
 my %esc = (
-        "\\" => "\\\\",
-        "\n" => "\\n",
-        "\r" => "\\r",
-        '"' => '\\"',
-        '$' => '\\$',
-        '@' => '\\@',
+    "\\" => "\\\\",
+    "\n" => "\\n",
+    "\r" => "\\r",
+    '"' => '\\"',
+    '$' => '\\$',
+    '@' => '\\@',
 );
 
 sub getQuotedValue
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $value = $self->{Value};
+    my $value = $self->{Value};
 
-        if (1)
-        {
-                $value =~ s/([\\\n\r"\$\@])/$esc{$1}/g;
-                return '"'.$value.'"';
-        }
-        else
-        {
-                return '"'.quotemeta($self->{Value}).'"';
-        }
+    if (1)
+    {
+        $value =~ s/([\\\n\r"\$\@])/$esc{$1}/g;
+        return '"'.$value.'"';
+    }
+    else
+    {
+        return '"'.quotemeta($self->{Value}).'"';
+    }
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/DerefArray.pm

@@ -8 +8 @@
 
 use Class::MethodMaker (
-        get_set => [qw( -java Index Ref )]
+    get_set => [qw( -java Index Ref )]
 );
 
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $array = $self->getRef->eval;
+    my $array = $self->getRef->eval;
 
-        return $array->[$self->getIndex->eval];
+    return $array->[$self->getIndex->eval];
 }
 
 sub perl
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $array_perl = $self->getRef->perl;
+    my $array_perl = $self->getRef->perl;
 
-        my $index = $self->getIndex->perl;
-        return "($array_perl)->[$index]";
+    my $index = $self->getIndex->perl;
+    return "($array_perl)->[$index]";
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/DerefHash.pm

@@ -8 +8 @@
 
 use Class::MethodMaker (
-        get_set => [qw( -java Key Ref )]
+    get_set => [qw( -java Key Ref )]
 );
 
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $hash = $self->getRef->eval;
+    my $hash = $self->getRef->eval;
 
-        return $hash->{$self->getKey->eval};
+    return $hash->{$self->getKey->eval};
 }
 
 sub perl
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $hash_perl = $self->getRef->perl;
+    my $hash_perl = $self->getRef->perl;
 
-        my $index = $self->getKey->perl;
-        return "($hash_perl)->{$index}";
+    my $index = $self->getKey->perl;
+    return "($hash_perl)->{$index}";
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/Holder.pm

@@ -8 +8 @@
 
 use Class::MethodMaker (
-        get_set => [qw( -java Expr )]
+    get_set => [qw( -java Expr )]
 );
 
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        return $self->getExpr->eval;
+    return $self->getExpr->eval;
 }
 
 sub perl
 {
-        my $self = shift;
+    my $self = shift;
 
-        return $self->getExpr->perl;
+    return $self->getExpr->perl;
 
 }

perl5/Code-Perl/lib/Code/Perl/Expr/Infix.pm

@@ -8 +8 @@
 
 use Class::MethodMaker (
-        get_set => [qw( -java Exprs Op )]
+    get_set => [qw( -java Exprs Op )]
 );
 
 sub perl
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $op = $self->getOp;
-        my @exprs = map {"(".$_->perl.")"} @{$self->getExprs};
+    my $op = $self->getOp;
+    my @exprs = map {"(".$_->perl.")"} @{$self->getExprs};
 
-        return join(" $op ", @exprs);
+    return join(" $op ", @exprs);
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/List.pm

@@ -9 +9 @@
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        return map { $_->eval } @{$self->getValue};
+    return map { $_->eval } @{$self->getValue};
 }
 
 sub perl
 {
-        my $self = shift;
+    my $self = shift;
 
-        return join(", ", map {$_->perl} @{$self->getValue});
+    return join(", ", map {$_->perl} @{$self->getValue});
 }
 

perl5/Code-Perl/lib/Code/Perl/Expr/Not.pm

@@ -8 +8 @@
 
 use Class::MethodMaker (
-        get_set => [qw( -java Expr )]
+    get_set => [qw( -java Expr )]
 );
 
 sub eval
 {
-        my $self = shift;
+    my $self = shift;
 
-        my $expr = $self->getExpr;
+    my $expr = $self->getExpr;