view release on metacpan or  search on metacpan

lib/Print/Indented/Handle.pm  view on Meta::CPAN

    push @{ $Packages{ refaddr $self } ||= [] }, @_;
}

sub PRINT {
    my ($self, @args) = @_;
    my ($pkg, $filename, $nr) = caller;

    if (any { $pkg =~ $_ } $self->packages_re) {
        my $line = (path($filename)->lines)[$nr-1];
        my ($indent) = $line =~ /^(\s*)/;
        foreach (grep length, split m<(.*$/?)>, join('', @args)) {
            print { $self->original_fh } "$indent$_";
        }
    } else {
        # do not indent
        print { $self->original_fh } @args;
    }
}

sub PRINTF {
    my ($self, $format, @args) = @_;