From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CSJEWELL / WiX3-0.011 / lib / WiX3 / Role / Traceable.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

              
package WiX3::Role::Traceable;
use 5.008003;
use Moose::Role 2;
use WiX3::Trace::Object 0.011;
our $VERSION = '0.011';
sub get_tracelevel {
        my $self = shift;
        return WiX3::Trace::Object->instance()->get_tracelevel(@_);
}
sub set_tracelevel {
        my $self = shift;
        return WiX3::Trace::Object->instance()->set_tracelevel(@_);
}
sub get_testing {
        my $self = shift;
        return WiX3::Trace::Object->instance()->get_testing(@_);
}
sub trace_line {
        my $self = shift;
        return WiX3::Trace::Object->instance()->trace_line(@_);
}
sub push_tracelevel {
        my $self      = shift;
        my $new_level = shift;
        my $object = \do { WiX3::Trace::Object->instance()->get_tracelevel(); };
        bless $object, 'WiX3::Role::Traceable::Saver';
        WiX3::Trace::Object->instance()->set_tracelevel($new_level);
        return $object;
}
no Moose::Role;
sub WiX3::Role::Traceable::Saver::DESTROY {
        my $self = shift;
        WiX3::Trace::Object->instance()->set_tracelevel( ${$self} );
        return;
}
1;                                     # Magic true value required at end of module