view release on metacpan or  search on metacpan

lib/Devel/STDERR/Indent.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
 
package Devel::STDERR::Indent;
use Moose;
 
no warnings 'recursion';
 
use Scalar::Util qw(weaken);
 
use namespace::clean -except => "meta";
 
use Sub::Exporter -setup => {
        exports => [qw(indent)],
};
 
our $VERSION = "0.06";
 
sub indent {

lib/Devel/STDERR/Indent.pm  view on Meta::CPAN

146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
        }
 
        # otherwise we're at the top level, don't indent unnecessarily, it's distracting
        return;
}
 
sub install {
        my $self = shift;
 
        my $weak = $self;
        weaken($weak);
 
        if ( my $prev = $SIG{__WARN__} ) {
                $self->_previous_hook($prev);
        }
 
        $SIG{__WARN__} = bless sub { $weak->warn(@_) }, "Devel::STDERR::Indent::Hook";
}
 
sub uninstall {
        my $self = shift;