devel::trace(3pm) [debian man page]

Trace(3pm)						User Contributed Perl Documentation						Trace(3pm)

NAME

       Devel::Trace - Print out each line before it is executed (like "sh -x")

SYNOPSIS

	 perl -d:Trace program

DESCRIPTION

       If you run your program with "perl -d:Trace program", this module will print a message to standard error just before each line is executed.
       For example, if your program looks like this:

	       #!/usr/bin/perl

	       print "Statement 1 at line 4
";
	       print "Statement 2 at line 5
";
	       print "Call to sub x returns ", &x(), " at line 6.
";

	       exit 0;

	       sub x {
		 print "In sub x at line 12.
";
		 return 13;
	       }

       Then  the "Trace" output will look like this:

	       >> ./test:4: print "Statement 1 at line 4
";
	       >> ./test:5: print "Statement 2 at line 5
";
	       >> ./test:6: print "Call to sub x returns ", &x(), " at line 6.
";
	       >> ./test:12:   print "In sub x at line 12.
";
	       >> ./test:13:   return 13;
	       >> ./test:8: exit 0;

       This is something like the shell's "-x" option.

DETAILS

       Inside your program, you can enable and disable tracing by doing

	   $Devel::Trace::TRACE = 1;   # Enable
	   $Devel::Trace::TRACE = 0;   # Disable

       or

	   Devel::Trace::trace('on');  # Enable
	   Devel::Trace::trace('off'); # Disable

       "Devel::Trace" exports the "trace" function if you ask it to:

	   import Devel::Trace 'trace';

       Then if you want you just say

	   trace 'on';		       # Enable
	   trace 'off'; 	       # Disable

TODO

       o   You should be able to  send the trace output to the filehandle of your choice.

       o   You should be able to specify the format of the output.

       o   You should be able to get the output into a string.

       We'll see.

LICENSE

       Devel::Trace 0.11 and its source code are hereby placed in the public domain.

Author
       Mark-Jason Dominus (C<mjd-perl-trace@plover.com>), Plover Systems co.  See the C<Devel::Trace.pm> Page at
       http://www.plover.com/~mjd/perl/Trace for news and upgrades.

perl v5.14.2							    2012-02-16								Trace(3pm)

Devel::Cover::DB(3)					User Contributed Perl Documentation				       Devel::Cover::DB(3)

NAME

       Devel::Cover::DB - Code coverage metrics for Perl

VERSION

       version 1.03

SYNOPSIS

	use Devel::Cover::DB;

	my $db = Devel::Cover::DB->new(db => "my_coverage_db");
	$db->print_summary([$file1, $file2], ["statement", "pod"]);

DESCRIPTION

       This module provides access to a database of code coverage information.

METHODS

   new
	my $db = Devel::Cover::DB->new(db => "my_coverage_db");

       Contructs the DB from the specified database.

   cover
	my $cover = $db->cover;

       Returns a Devel::Cover::DB::Cover object.  From here all the coverage data may be accessed.

	my $cover = $db->cover;
	for my $file ($cover->items)
	{
	    print "$file
";
	    my $f = $cover->file($file);
	    for my $criterion ($f->items)
	    {
		print "  $criterion
";
		my $c = $f->criterion($criterion);
		for my $location ($c->items)
		{
		    my $l = $c->location($location);
		    print "    $location @$l
";
		}
	    }
	}

       Data for different criteria will be in different formats, so that will need special handling.  This is not yet documented so your best bet
       for now is to look at some of the simpler reports and/or the source.

       The methods in the above example are actually aliases for methods in Devel::Cover::DB::Base (the base class for all Devel::Cover::DB::*
       classes):

       o   Devel::Cover::DB::Base->values

	   Aliased to Devel::Cover::DB::Cover->files, Devel::Cover::DB::File->criteria, Devel::Cover::DB::Criterion->locations, and
	   Devel::Cover::DB::Location->data

       o   Devel::Cover::DB::Base->get

	   Aliased to Devel::Cover::DB::Cover->file, Devel::Cover::DB::File->criteriom, Devel::Cover::DB::Criterion->location, and
	   Devel::Cover::DB::Location->datum

       Instead of calling $file->criterion("x") you can also call $file->x.

   is_valid
	my $valid = $db->is_valid;

       Returns true if $db is valid (or looks valid, the function is too lax).

SEE ALSO

	Devel::Cover
	Devel::Cover::DB::Base
	Devel::Cover::DB::Cover
	Devel::Cover::DB::File
	Devel::Cover::DB::Criterion
	Devel::Cover::DB::Location

BUGS

       Huh?

LICENCE

       Copyright 2001-2013, Paul Johnson (paul@pjcj.net)

       This software is free.  It is licensed under the same terms as Perl itself.

       The latest version of this software should be available from my homepage: http://www.pjcj.net

perl v5.16.3							    2013-05-20						       Devel::Cover::DB(3)