Select Code to Download

Select or download this

package Dsay;
use warnings;
...

sub get_darea() { $d_area }
# Etc.

Select or download this

sub common_sub {
    say 'call to common sub (d_area is ', get_darea(), ')';
...
    common_sub;
    dsay "more debugging output from two";
}

Select or download this

Can't create a Scope::Guard in void context

Select or download this

use Dsay;

package Dsay;
our $d_area;
package main;

Select or download this
```
*d_area = *Dsay::d_area;
```

Select or download this

use Exporter;
our @EXPORT = qw( %debug dsay $d_area );
...
    *{ $caller . '::d_area' } = *Dsay::d_area;
    goto &Exporter::import
}

Select or download this

use Exporter qw{ import };
our @EXPORT = qw( %debug %opt dsay );
...
        : "DEBUG: ";
    say $prefix, @args;
}

Select or download this

sub one {
    say "call to one:";
...
    dsay "more debugging output from one";
}
# Etc.

Select or download this

        *{"${callpkg}::$sym"} =
            $type eq '&' ? \&{"${pkg}::$sym"} :
...
            $type eq '%' ? \%{"${pkg}::$sym"} :
            $type eq '*' ?  *{"${pkg}::$sym"} :
            do { require Carp; Carp::croak("Can't export symbol: $type
+$sym") };

Select or download this

    *{ $caller . '::d_area' } = 'Dsay::d_area';

Select or download this

*{"${callpkg}::$sym"} = "${pkg}::$sym" if '$' eq $type;