Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Algorithm	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Alien	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Alt	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Apache	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
App	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
AppConfig	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Archive	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Authen	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
B	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
BerkeleyDB	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Bundle	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Bytes	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
CGI	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
CPAN	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
CPANPLUS	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Canary	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Capture	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Carp	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Class	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Clone	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Compress	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Config	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Context	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Convert	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Cpanel	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Crypt	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DBD	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
DBI	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DBIx	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
DBM	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Dancer	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Dancer2	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Data	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Date	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
DateTime	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Devel	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Digest	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Dist	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Email	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Encode	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Eval	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Excel	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Exception	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Exporter	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
ExtUtils	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
FFI	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
File	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
GD	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Graphics	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
HTML	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
HTTP	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Hash	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Hook	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
IO	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
IPC	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Imager	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
JSON	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
LWP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
List	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Log	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
MIME	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mail	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Math	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Method	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mock	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Modern	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Module	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mojo	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
MojoX	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Mojolicious	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Moo	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
MooX	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Moose	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
MooseX	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Mozilla	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Net	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Number	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
OLE	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Object	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
OpenGL	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PAR	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
POD2	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PPI	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PPM	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Package	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Params	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Parse	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Path	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Perl	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
PerlIO	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Pod	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Portable	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Probe	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Role	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
SOAP	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
SQL	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Scope	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sort	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Specio	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Spiffy	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Spreadsheet	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
StackTrace	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
String	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sub	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Syntax	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Sys	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
TAP	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Task	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Template	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Term	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Test	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Test2	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Text	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Throwable	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Tie	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Time	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Tree	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Types	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Unicode	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Variable	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
WWW	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Win32	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Win32API	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
XML	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
YAML	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
auto	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
common	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
lib	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
libwww	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
local	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
namespace	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
odern	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
AppConfig.pm	31.7 KB	-rw-rw-rw-	2015-03-02 00:23
BerkeleyDB.pm	42.09 KB	-rw-rw-rw-	2020-09-17 12:21
BerkeleyDB.pod	80.17 KB	-rw-rw-rw-	2020-09-17 11:57
CGI.pm	122.63 KB	-rw-rw-rw-	2020-09-25 17:21
CGI.pod	66.13 KB	-rw-rw-rw-	2020-06-22 11:29
CPANPLUS.pm	7.05 KB	-rw-rw-rw-	2020-12-19 12:30
Clone.pm	2.29 KB	-rw-rw-rw-	2020-04-24 00:46
CryptX.pm	4.69 KB	-rw-rw-rw-	2020-08-25 11:02
DBI.pm	310.74 KB	-rw-rw-rw-	2020-01-31 17:27
DB_File.pm	67.74 KB	-rw-rw-rw-	2021-01-24 16:36
DDP.pm	530 B	-rw-rw-rw-	2015-05-30 02:50
DateTime.pm	132.7 KB	-rw-rw-rw-	2020-12-05 00:20
FCGI.pm	5.72 KB	-rw-rw-rw-	2019-12-14 20:22
Fh.pm	166 B	-rw-rw-rw-	2020-09-25 17:20
GD.pm	67.49 KB	-rw-rw-rw-	2020-09-24 16:52
Imager.pm	124.3 KB	-rw-rw-rw-	2020-06-14 07:15
Importer.pm	41.53 KB	-rw-rw-rw-	2020-08-17 01:24
JSON.pm	61.08 KB	-rw-rw-rw-	2021-01-24 02:09
LWP.pm	21.17 KB	-rw-rw-rw-	2021-01-07 23:21
MailTools.pm	458 B	-rw-rw-rw-	2019-05-21 18:26
MailTools.pod	2.24 KB	-rw-rw-rw-	2019-05-21 18:26
Mojo.pm	1.61 KB	-rw-rw-rw-	2021-01-17 16:56
Mojolicious.pm	29.21 KB	-rw-rw-rw-	2021-01-17 16:57
Moo.pm	33.61 KB	-rw-rw-rw-	2020-11-25 02:58
Moose.pm	38.63 KB	-rw-rw-rw-	2020-12-19 02:06
OLE.pm	4.28 KB	-rw-rw-rw-	2013-11-28 21:21
OpenGL.pm	140.62 KB	-rw-rw-rw-	2016-10-08 23:11
OpenGL.pod	37.33 KB	-rw-rw-rw-	2016-10-08 23:12
PAR.pm	40.34 KB	-rw-rw-rw-	2019-05-25 01:14
PPI.pm	29.52 KB	-rw-rw-rw-	2019-07-09 19:15
PPM.pm	75.77 KB	-rw-rw-rw-	2020-02-07 11:26
PadWalker.pm	4.1 KB	-rw-rw-rw-	2020-09-27 16:22
PkgConfig.pm	46.95 KB	-rw-rw-rw-	2020-11-11 12:32
Portable.pm	6.49 KB	-rw-rw-rw-	2020-02-07 22:46
Socket6.pm	9.55 KB	-rw-rw-rw-	2018-09-30 08:22
Specio.pm	14.83 KB	-rw-rw-rw-	2020-03-14 19:47
Spiffy.pm	15.12 KB	-rw-rw-rw-	2014-08-16 23:19
Spiffy.pod	17.75 KB	-rw-rw-rw-	2014-08-16 23:19
Template.pm	24.46 KB	-rw-rw-rw-	2020-07-14 01:47
Throwable.pm	4.4 KB	-rw-rw-rw-	2015-07-01 17:46
TimeDate.pm	267 B	-rw-rw-rw-	2020-05-19 21:30
V.pm	4.18 KB	-rw-rw-rw-	2007-11-07 02:08
XString.pm	1.76 KB	-rw-rw-rw-	2020-10-20 21:56
YAML.pm	3.12 KB	-rw-rw-rw-	2020-01-28 00:10
YAML.pod	22.62 KB	-rw-rw-rw-	2020-01-28 00:10
aliased.pm	9.98 KB	-rw-rw-rw-	2015-01-03 22:39
alienfile.pm	15.78 KB	-rw-rw-rw-	2021-01-11 23:36
dbixs_rev.pl	1.5 KB	-rw-rw-rw-	2013-04-05 02:17
enum.pm	10.63 KB	-rw-rw-rw-	2015-10-27 23:37
metaclass.pm	3.23 KB	-rw-rw-rw-	2020-12-19 02:06
mkconsts.pl	38.4 KB	-rw-rw-rw-	2019-02-05 22:12
ntheory.pm	14.33 KB	-rw-rw-rw-	2018-11-15 20:49
ojo.pm	7.04 KB	-rw-rw-rw-	2021-01-17 16:57
oo.pm	1.19 KB	-rw-rw-rw-	2020-09-02 14:16
oose.pm	2.62 KB	-rw-rw-rw-	2020-12-19 02:06
pler.pm	9.76 KB	-rw-rw-rw-	2010-11-29 09:50
ppm.xml	600 B	-rw-rw-rw-	2023-11-19 11:41
scan.pl	5.68 KB	-rw-rw-rw-	2019-02-05 22:12
superclass.pm	3.71 KB	-rw-rw-rw-	2014-03-11 12:54
syntax.pm	4.24 KB	-rw-rw-rw-	2012-05-18 22:47

Rename

package V;
use strict;

# $Id: V.pm 1126 2007-11-07 00:10:02Z abeltje $

use vars qw( $VERSION $NO_EXIT );
$VERSION  = '0.13';

$NO_EXIT ||= 0; # prevent import() from exit()ing and fall of the edge

=head1 NAME

V - Print version of the specified module(s).

=head1 SYNOPSIS

$ perl -MV=V

or if you want more than one

$ perl -MV=CPAN,V

Can now also be used as a light-weight module for getting versions of
modules without loading them:

BEGIN { $V::NO_EXIT = 1 }
    require V;

printf "%s has version '%s'\n", "V", V::get_version( "V" );

=head1 DESCRIPTION

This module uses stolen code from L<Module::Info> to find the location 
and version of the specified module(s). It prints them and exit()s.

It defines C<import()> and is based on an idea from Michael Schwern
on the perl5-porters list. See the discussion:

http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2002-01/msg00760.html

=head1 AUTHOR

Abe Timmerman C<< <abeltje@cpan.org> >>.

=head1 COPYRIGHT & LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

=cut

sub report_pkg($@) {
    my $pkg = shift;

print "$pkg\n";
    @_ or print "\tNot found\n";
    for my $module ( @_ ) {
        printf "\t%s: %s\n", $module->file, $module->version || '?';
    }
}

sub import {
    shift;
    @_ or push @_, 'V';
 
   for my $pkg ( @_ ) {
        my @modules = V::Module::Info->all_installed( $pkg );
        report_pkg $pkg, @modules;
    }
    exit() unless $NO_EXIT;
}

sub get_version {
    my( $pkg ) = @_;
    my( $first ) = V::Module::Info->all_installed( $pkg );
    return $first ? $first->version : undef;
}

caller or V->import( @ARGV );

# Okay I did the AUTOLOAD() bit, but this is a Copy 'n Paste job.
# Thank you Michael Schwern for Module::Info! This one is mostly that!

package V::Module::Info;

require File::Spec;

sub new_from_file {
    my($proto, $file) = @_;
    my($class) = ref $proto || $proto;

return unless -r $file;

my $self = {};
    $self->{file} = File::Spec->rel2abs($file);
    $self->{dir}  = '';
    $self->{name} = '';

return bless $self, $class;
}

sub all_installed {
    my($proto, $name, @inc) = @_;
    my($class) = ref $proto || $proto;

@inc = @INC unless @inc;
    my $file = File::Spec->catfile(split m/::/, $name) . '.pm';
    
    my @modules = ();
    foreach my $dir (@inc) {
        # Skip the new code ref in @INC feature.
        next if ref $dir;

my $filename = File::Spec->catfile($dir, $file);
        if( -r $filename ) {
            my $module = $class->new_from_file($filename);
            $module->{dir} = File::Spec->rel2abs($dir);
            $module->{name} = $name;
            push @modules, $module;
        }
    }
              
    return @modules;
}

# Thieved from ExtUtils::MM_Unix 1.12603
sub version {
    my($self) = shift;

my $parsefile = $self->file;

local *MOD;
    open(MOD, $parsefile) or die $!;

my $inpod = 0;
    my $result;
    local $_;
    while (<MOD>) {
        $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
        next if $inpod || /^\s*#/;

chomp;
        next unless m/([\$*])(([\w\:\']*)\bVERSION)\b.*\=/;
        { local($1, $2); ($_ = $_) = m/(.*)/; } # untaint
        my $eval = qq{
            package V::Module::Info::_version;
            no strict;

local $1$2;
            \$$2=undef; do {
                $_
            }; \$$2
        };
        local $^W = 0;
        $result = eval($eval);
        warn "Could not eval '$eval' in $parsefile: $@" if $@;
        $result = "undef" unless defined $result;
        last;
    }
    close MOD;
    return $result;
}

sub accessor {
    my $self = shift;
    my $field = shift;

$self->{ $field } = $_[0] if @_;
    return $self->{ $field };
}

sub AUTOLOAD {
    my( $self ) = @_;

use vars qw( $AUTOLOAD );
    my( $method ) = $AUTOLOAD =~ m|.+::(.+)$|;

if ( exists $self->{ $method } ) {
        splice @_, 1, 0, $method;
        goto &accessor;
    }
}