a.pl

#!/usr/bin/env perl
#
use Modern::Perl;

package main;

my @main::debug;

push @main::debug, "log message";

package MogileFS::Client;

DEBUG(Dumper(\@main::debug));


package Logger::Stack;
use MooseX::Singleton;

sub push {

}

sub dump {

}

sub clear {

}

Logger::Stack->instance->push("message");


DEBUG(Logger::Stack->instance->dump);

render_response;
Logger::Stack->clear;