File Coverage

blib/lib/Eval/LineNumbers.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	27	27	100.0

package Eval::LineNumbers;

use warnings;
use strict;

use Exporter 5.57 'import';
our @EXPORT_OK = qw(eval_line_numbers eval_line_numbers_offset);

# ABSTRACT: Add line numbers to heredoc blocks that contain perl source code
our $VERSION = '0.35'; # VERSION

my %offset;

sub eval_line_numbers_offset
{
  my(undef, $file) = caller;
  $offset{$file} = shift;
}

sub eval_line_numbers
{
  my(undef, $file, $line) = caller(
    # Optional first arg is the caller level
    $_[0] =~ /^[0-9]+$/ ? (shift) : 0
  );
  if(defined $offset{$file}) {
    $line += $offset{$file};
  } else {
    $line++;
  }
  return join('', qq{#line $line "$file"\n}, @_)
}

1;

__END__