#!/usr/bin/perl -w


package PerlDebugger;

use DB;
@ISA = qw( DB );


sub new {
   my $type = shift;
   my $self = {};
   bless $self, $type;
}  

sub startDebugger   {
   my $self = shift;
   my $sourceCode = shift;

   print "\n>>$sourceCode<<\n";

   $self->register();
   print ">>" . $self->loadfile( $sourceCode, -1 ) . "<<\n";
   print ">>" . $self->ready() . "<<\n";

   print "\n>>";
   print $DB::filename;
   print "<<\n";
}

sub quit   {
   my $self = shift;
   $self->done();
}

package main;
use strict;

my $code = "/home/eric/code/tmp/foo.pl";

my $dbgr = PerlDebugger->new();
$dbgr->startDebugger( $code );