The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

# This file tests the import() method of the main Log::Any class. The
# tests in this file will frequently simply die if they fail.
#

use strict;
use warnings;
use Test::More tests => 2;
use Log::Any::Test;

# Test that we are allowed to call the imported Log::Any::Proxy object
# anything we want
{
    package test1;
    use Log::Any qw( $ANYTHING );
    $ANYTHING->info( 'This must not die' );
    $ANYTHING->contains_ok( qr/This must not die/, 'logged correctly' );
}

# Test that only the first thing that looks like a scalar is used to
# name the Log::Any::Proxy object
{
    package test2;
    use Log::Any qw( $LOG ), category => '$script';
    $LOG->info( 'This must not die' );
    $LOG->category_contains_ok( '$script', qr/This must not die/, 'logged correctly' );
}