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

use Archive::Any;
my $aa = Archive::Any->new($0);

print "OK\n";

##</code><code>##

Insecure dependency in eval while running with -T switch at .../perl5/Archive/Any.pm line 153.

##</code><code>##

sub new {
    my ( $class, $file, $type ) = @_;

    $file = rel2abs($file);
    return unless -f $file;

    my %available;

    my @plugins = Archive::Any::Plugin->findsubmod;
    foreach my $plugin (@plugins) {
        eval "require $plugin";
        next if $@;

        my @types = $plugin->can_handle();
        foreach my $type ( @types ) {
            next if exists( $available{$type} );
            $available{$type} = $plugin;
        }
    }