ヤミRoot VoidGate

Viewing: additional-exports.t

## no critic (Modules::ProhibitMultiplePackages)
use strict;
use warnings;

use Test::More 0.96;

{
    package Foo;

    use parent 'Specio::Exporter';
    use Specio::Declare;
    use Specio::Library::Builtins -reexport;

    declare(
        'FooType',
        parent => t('Str'),
    );

    sub foo {42}

    ## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
    sub _also_export {'foo'}
}

{
    package Bar;

    Foo->import;

    ::ok(
        t('FooType'),
        'FooType type was exported by Foo package',
    );

    ::ok(
        t('Str'),
        'built-in types were exported by Foo package',
    );

    ::ok(
        Bar->can('foo'),
        'foo sub was exported by Foo package'
    );

    ::is(
        Bar->foo, 42,
        'Bar->foo returns expected value'
    );
}

done_testing();

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64