NAME Perl::LineNumber::Comment - Add line number to Perl source as comment VERSION This document describes version 0.003 of Perl::LineNumber::Comment (from Perl distribution Perl-LineNumber-Comment), released on 2020-11-28. SYNOPSIS Content of sample.pl: #!/usr/bin/env perl use 5.010001; use strict; use warnings; print "Hello, world 1!"; print "Hello, world 2!"; # a comment print "A multiline string"; print <content). Line three. EOF exit 0; __END__ one two three In your code: use File::Slurper qw(read_text); use Perl::LineNumber::Comment qw(add_line_number_comments_to_perl_source); my $source = read_text('sample.pl'); print add_line_number_comments_to_perl_source(source => $source); Output: #!/usr/bin/env perl use 5.010001; use strict; use warnings; # line 5 print "Hello, world 1!"; print "Hello, world 2!"; # a comment print "A multiline string"; # line 10 print <content). Line three. EOF exit 0; __END__ one two three With this code: print add_line_number_comments_to_perl_source(source => $source, every=>1); Output: #!/usr/bin/env perl # line 2 use 5.010001; # line 3 use strict; # line 4 use warnings; # line 5 # line 6 print "Hello, world 1!"; # line 7 print "Hello, world 2!"; # a comment print "A multiline string"; # line 10 # line 11 print <content). Line three. EOF # line 17 exit 0; # line 18 # line 19 __END__ one two three FUNCTIONS add_line_number_comments_to_perl_source Usage: add_line_number_comments_to_perl_source(%args) -> any This function is not exported by default, but exportable. Arguments ('*' denotes required arguments): * column => *posint* (default: 80) * every => *posint* (default: 5) * format => *str* (default: " # line %d") * source* => *str* Return value: (any) HOMEPAGE Please visit the project's homepage at . SOURCE Source repository is at . BUGS Please report any bugs or feature requests on the bugtracker website When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. SEE ALSO AUTHOR perlancar COPYRIGHT AND LICENSE This software is copyright (c) 2020 by perlancar@cpan.org. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.