File Coverage

blib/lib/Devel/Command/NewF.pm

Criterion	Covered	Total	%
statement	12	39	30.7
branch	0	10	0.0
condition	0	4	0.0
subroutine	4	7	57.1
pod	2	2	100.0
total	18	62	29.0

package Devel::Command::NewF;
use warnings;
use strict;
# use Smart::Comments;

use base qw(Devel::Command);

our $VERSION = '0.02';

use Carp;

sub command {
  my ($arg) = (shift =~ /.*?\s+(.*)/);
  if (!$arg) {
    # Take the debugger's default.
    return 0;
  }

  (my $filename = $arg) =~ s|::|/|g;
  $filename .= '.pm';
  ### Looking for: $filename

  my $real_file = $INC{$filename} || '';
  if (!$real_file) {
    ### Using: $arg
    eval "use $arg";        ## no critic
    if ($@) {
      (my $err = $@) =~ s/at \(eval.*$//sm;
      print DB::OUT "Failed to load $arg: $err\n";
    }
    else {
      ### Got it: $filename
      print DB::OUT "Loaded $arg\n";
      $real_file = $INC{$filename} or do {
         print DB::OUT "Still can't find $arg??";
         return 1;
      };
      push @DB::typeahead, "f $real_file";
      return 1;
    }
  }
  else {
    push @DB::typeahead, "f $real_file";
    return 1;
  }
  return 1;
}

sub _lookit {
  my ($file) = shift;
  my $real_file = $INC{$file} || '';
  ### Found: $real_file
  if ($real_file) {
    push @DB::typeahead, "f $real_file";
    return 1;
  }
  return 0;
}

sub signature { return ('fn' => \&command) }


1; # Magic true value required at end of module
__END__