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

; use strict
; use Test::More tests => 1;

################################################################################
## test the findsubs method
################################################################################
use Package::Subroutine;
my %expect  =
    ( import         => 1
    , mixin          => 1
    , export         => 1
    , exporter       => 1
    , version        => 1
    , install        => 1
    , isdefined      => 1
    , findsubs       => 1
    , export_to_caller => 1
    , export_to      => 1
    , findmethods    => 1
    );

my %methods = map { ($_ => 1) }
    Package::Subroutine->findsubs('Package::Subroutine');

is_deeply(\%methods,\%expect);