| Subject: | Provide example does not work |
Attached is a working example for Perl 5.8.7.
#!/usr/local/perl/bin/perl
################################################################################
#
# Copyright (c) 2005 Amazon.com Inc. All Rights Reserved.
# AMAZON.COM CONFIDENTIAL
#
# Description:
#
# Author: Jeff Tanner, <jtanner@amazon.com>
#
# $Id: $
# $Source: $
# $Revision: $
#
################################################################################
use Module::Which;
my @info_array = @{ which('Module::Which', 'YAML', 'XML::', 'DBI', 'DBD::', 'attrs') };
foreach my $info ( @info_array ) {
print qq(pm: $info->{pm} \n) if $info->{pm};
print qq(version: $info->{version} \n) if $info->{version};
print qq(path: $info->{path} \n) if $info->{path};
print qq(base: $info->{base} \n) if $info->{base};
print "\n############\n";
}