cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue Context.pm

[spadkins]

cvsuser     02/01/30 11:43:26

  Modified:    P5EEx/Blue/P5EEx/Blue Context.pm
  Log:
  added a dump() method for debugging
  
  Revision  Changes    Path
  1.10      +29 -2     p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm
  
  Index: Context.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -w -r1.9 -r1.10
  --- Context.pm        25 Jan 2002 19:24:28 -0000      1.9
  +++ Context.pm        30 Jan 2002 19:43:26 -0000      1.10
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Context.pm,v 1.9 2002/01/25 19:24:28 spadkins Exp $
  +## $Id: Context.pm,v 1.10 2002/01/30 19:43:26 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Context;
  @@ -891,6 +891,33 @@
           $self->{dbgscope} = $dbgscope;
       }
       $dbgscope;
  +}
  +
  +#############################################################################
  +# dump()
  +#############################################################################
  +
  +=head2 dump()
  +
  +    * Signature: $perl = $context->dump();
  +    * Param:     void
  +    * Return:    $perl      text
  +    * Throws:    P5EEx::Blue::Exception
  +    * Since:     0.01
  +
  +    Sample Usage: 
  +
  +    print $self->dump(), "\n";
  +
  +=cut
  +
  +use Data::Dumper;
  +
  +sub dump {
  +    my ($self) = @_;
  +    my $d = Data::Dumper->new([ $self ], [ "context" ]);
  +    $d->Indent(1);
  +    return $d->Dump();
   }
   
   1;