## ----------------------------------------------------------------------------

package CGI::Conduit::Log;

use Moose::Role;
use Projectus::Log qw(log_init);

## ----------------------------------------------------------------------------

has 'log_filename' => ( is => 'rw' );

## ----------------------------------------------------------------------------

after 'init' => sub {
    my ($self) = @_;

    log_init( $self->log_filename );
};

## ----------------------------------------------------------------------------
1;
## ----------------------------------------------------------------------------

## ----------------------------------------------------------------------------

package CGI::Conduit::Log;

use Moose::Role;
use Projectus::Log qw(log_init);

## ----------------------------------------------------------------------------

has 'log_filename' => ( is => 'rw' );

## ----------------------------------------------------------------------------

# for some reason, this is called twice in startup, even though init() is only
# called once!!!
after 'init' => sub {
    my ($self) = @_;

    log_init( $self->log_filename );
};

## ----------------------------------------------------------------------------
1;
## ----------------------------------------------------------------------------

Comment to say something weird is happening
Comment to say something weird is happening
