File Coverage

blib/lib/Devel/Dt.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	20	22	90.9

package Devel::Dt;
BEGIN {
  $Devel::Dt::VERSION = '0.04';
}
# ABSTRACT: Kind of emulates command line flag -Dt on normal perl

use warnings;
use strict;
use B ();
use B::Utils ();
use Runops::Trace ();
# use Data::Dump::Streamer ();
use IO::Handle;

my $Dumper;
my $CurrentFile;
my $CurrentLine;
my $OutputHandle;

sub dt {
    my ( $op, $arity, @args ) = @_;
    my $name  = $op->oldname;
    my $class = B::class( $op );

    my $dumped = '';
    if ( @args ) {
	$dumped = "@args";
	# $dumped = $Dumper->Data( \ @args );
    }

    if ( 'COP' eq $class ) {
	$CurrentFile = $op->file;
	$CurrentLine = $op->line;
    }

    $OutputHandle->printf( "(%s:%s)  %s=0x%0x\n", $CurrentFile, $CurrentLine, $name, $$op, $dumped )
	or warn "Can't write to $OutputHandle: $!";

    return;
}

BEGIN {
    $CurrentFile = $CurrentLine = '?';

    $OutputHandle = \ *STDERR;

    # $Dumper = Data::Dump::Streamer->new;
    #
    # $Dumper->Names( 'args' );
    # $Dumper->Purity( 0 );
    # $Dumper->Declare( 0 );
    # $Dumper->KeyOrder( 'smart' );

    Runops::Trace::enable_global_tracing( \&dt );
}


() = -.0

__END__