#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 8;

{
    package Bar;
    use Any::Moose;
    with 'MooseX::Role::Loggable';
}

{
    package Foo;
    use Any::Moose;
    with 'MooseX::Role::Loggable';

    sub bar { Bar->new( shift->log_fields ) }
}

my $foo = Foo->new;
isa_ok( $foo, 'Foo' );
cmp_ok( $foo->debug, '==', 0, 'debug is off in Foo' );

my $bar = $foo->bar;
isa_ok( $bar, 'Bar' );
cmp_ok( $bar->debug, '==', 0, 'debug is off in Bar' );
    
$foo = Foo->new( debug => 1 );
isa_ok( $foo, 'Foo' );
cmp_ok( $foo->debug, '==', 1, 'debug is now on in Foo' );

$bar = $foo->bar;
isa_ok( $bar, 'Bar' );
cmp_ok( $bar->debug, '==', 1, 'debug is now on in Bar too' );