use warnings;

##</code><code>##

use Storable qw{nstore retrieve};
$Storable::Deparse = 1;
$Storable::Eval = 1;

##</code><code>##

use Storable qw{nstore retrieve};
no warnings q{once};
$Storable::Deparse = 1;
$Storable::Eval = 1;

##</code><code>##

use Storable qw{nstore retrieve};
no warnings q{once};
$Storable::Deparse = 1;
$Storable::Eval = 1;
use warnings q{once};

##</code><code>##

use Storable qw{nstore retrieve};
{
    no warnings qw{once};
    $Storable::Deparse = 1;
    $Storable::Eval = 1;
}