view release on metacpan or  search on metacpan

lib/Bio/Polloc/Polloc/Root.pm  view on Meta::CPAN

=head2 strack_trace

=cut

sub stack_trace {
   my $self = shift;
   my $i = 0;
   my @out = ();
   my $prev = [];
   while( my @call = caller($i++)){
      $prev->[3] = $call[3];
      push @out, $prev;
      $prev = \@call;
   }
   $prev->[3] = 'toplevel';
   push @out, $prev;
   return @out;
}

lib/Bio/Polloc/Polloc/Version.pm  view on Meta::CPAN

=cut

package Bio::Polloc::Polloc::Version;

use strict;
our $VERSION = 1.0503;

sub import {
   no strict 'refs';
   my $c = -1;
   while(defined caller(++$c)){
      my $v = caller($c) . "::VERSION";
      ${$v} = $VERSION if $v =~ /^Bio::Polloc::/ and not defined ${$v};
   }
}

1;