#!/usr/bin/perl
use warnings; use strict;

use Devel::Examine::Subs;

my $des = Devel::Examine::Subs->new();

my $file = '../business-isp/lib/Business/ISP/Object.pm';

my $subs = $des->sublist({ file => $file });

for my $sub (@$subs){
    
    my $name = $sub->name();
    my $start = $sub->start(); 
    my $end = $sub->stop();
    my $count = $sub->count();

    print "Sub: $name\n\tStart line: $start\n" .
          "\tEnd line: $end\n\tTotal lines: $count\n\n";

}