130.pl

package MyApp;
use Moose;

with 'MooseX::Log::Log4perl';

sub go {
    my $self = shift;

    $self->log->debug('Starting method go');
    $self->log->info('Go go go');

    $self->log('IO')->info('reading data');
}

package main;
use Log::Log4perl;

Log::Log4perl::init('log.conf');

my $x = MyApp->new;
$x->go;