#!/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;

   eval( "require \"$sourceCode\";" );

   $self->register();
   print ">>" . $self->loadfile( $sourceCode, 3 ) . "<<\n";
   print ">>" . $self->ready() . "<<\n";
  
   print "\n>>";
   print $DB::filename;
   print "<<\n"; 
}     

sub showfile   {
   print "showfile\n";
}
    
sub quit   {
   my $self = shift;
   $self->done();
}    
    
package main;
use strict;

my $code = "perlbot.pl";
  
my $dbgr = PerlDebugger->new();
$dbgr->startDebugger( $code );