File Coverage

lib/Devel/Trepan/Processor.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch			n/a
condition	0	2	0.0
subroutine	9	10	90.0
pod	0	1	0.0
total	36	45	80.0

# -*- coding: utf-8 -*-
# Copyright (C) 2012 Rocky Bernstein <[e-mail]>

use rlib '../..';

# A debugger command processor. This includes the debugger commands
# and ties together the debugger core and I/O interface.
package Devel::Trepan::Processor;

use vars qw(@EXPORT @ISA);
@EXPORT    = qw( adjust_frame running_initialize);
@ISA       = qw( Exporter );

use English qw( -no_match_vars );
use Exporter;
use warnings; no warnings 'redefine';

eval "require Devel::Trepan::DB::Display";
use Devel::Trepan::Processor::Frame;
use Devel::Trepan::Processor::Running;
use strict;

# attr_reader :settings
sub new($$;$) {
    my ($class, $interfaces, $settings) = @_;
    $settings ||= {};
    my $self = {
        class      => $class,
        interfaces => $interfaces,
        settings   => $settings,
	gave_stack_trunc_warning => 0,
    };
    bless ($self, $class);
    return $self;
}

unless (caller) {
    require Devel::Trepan::Interface::User;
    my $intf = Devel::Trepan::Interface::User->new;
    my $proc  = __PACKAGE__->new([$intf]);
    print $proc->{class}, "\n";
    require Data::Dumper;
    print Data::Dumper::Dumper($proc->{interfaces});;
}


1;