mirrors_gitpan-MooseX-Log-Syslog-Fast
/
example.pl

#!/usr/bin/env perl

{
    package ExampleLog;

    use FindBin qw($Bin);
    use lib "$Bin/lib";

    use Moose;
    with 'MooseX::Log::Syslog::Fast';

    sub BUILD {
        my $self = shift;
        $self->_hostname('/var/run/syslog');
        $self->_name('Example');
    }

    sub test {
        my $self = shift;
        $self->log('foo');
    }

}

my $obj = new ExampleLog;

$obj->test;


1;