░▒▓████████████████████████████████▓▒░ ░▒▓█ ▓▒░ ░▒▓█ ~ S W A M P ~ ▓▒░ ░▒▓█ ▓▒░ ░▒▓████████████████████████████████▓▒░
pplmvsvm
LOCATION:
/usr/share/perl/5.38.2/ExtUtils/ParseXS
☗ ROOT
↻ REFRESH
✎ CARVE FLESH
EDITING: CountLines.pm
package ExtUtils::ParseXS::CountLines; use strict; our $VERSION = '3.51'; our $SECTION_END_MARKER; sub TIEHANDLE { my ($class, $cfile, $fh) = @_; $cfile =~ s/\\/\\\\/g; $cfile =~ s/"/\\"/g; $SECTION_END_MARKER = qq{#line --- "$cfile"}; return bless { buffer => '', fh => $fh, line_no => 1, }, $class; } sub PRINT { my $self = shift; for (@_) { $self->{buffer} .= $_; while ($self->{buffer} =~ s/^([^\n]*\n)//) { my $line = $1; ++$self->{line_no}; $line =~ s|^\#line\s+---(?=\s)|#line $self->{line_no}|; print {$self->{fh}} $line; } } } sub PRINTF { my $self = shift; my $fmt = shift; $self->PRINT(sprintf($fmt, @_)); } sub DESTROY { # Not necessary if we're careful to end with a "\n" my $self = shift; print {$self->{fh}} $self->{buffer}; } sub UNTIE { # This sub does nothing, but is necessary for references to be released. } sub end_marker { return $SECTION_END_MARKER; } 1;
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📄 Constants.pm
PM
1.1 KB
2026-06-12 13:42
EDIT
📄 CountLines.pm
PM
971 B
2026-06-12 13:42
EDIT
📄 Eval.pm
PM
2.3 KB
2026-06-12 13:42
EDIT
📄 Utilities.pm
PM
18 KB
2026-06-12 13:42
EDIT