view release on metacpan or  search on metacpan

lib/Acme/Magic/Pony.pm  view on Meta::CPAN

    eval { CORE::require( $file ) };
    if( $@ ){ # oops, they don't have it!
        ( my $module = $file ) =~ s/\//::/g;
        $module =~ s/\.pm$//g;
        warn "You appear to be missing $module, but don't worry, a Magic Pony is here to help!\n";
        *CORE::GLOBAL::require = *CORE::require; # disable magic pony while we go for a ride...
        CPAN::Shell->install($module); 
        CORE::require $file;
        *CORE::GLOBAL::require = sub { _magic_pony(@_) };
    }
}

BEGIN {
   *CORE::GLOBAL::require = sub { _magic_pony(@_) };
}

=head1 NAME

Acme::Magic::Pony - Schwern asked for a Magic Pony!

=head1 VERSION

Version 0.03

=cut

our $VERSION = '0.03';


=head1 SYNOPSIS


    use Acme::Magic::Pony;

That's it.  Every time you use any module, Acme::Magic::Pony will look to see if 
you have it.  If you do, it does nothing, but if you're missing it, it will 
attempt to use CPAN::Shell to install it.


=head1 EXPORT

Nothing.

=head1 FUNCTIONS

None.

=head1 METHODS

None.

=head1 AUTHOR

Jeff Lavallee, C<< <jeff at zeroclue.com> >>

=head1 BUGS

Please report any bugs or feature requests to C<bug-acme-magic-pony at rt.cpan.org>, 
or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Acme-Magic-Pony>.  
I will be notified, and then you'll automatically be notified of progress on your 
bug as I make changes.


=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Acme::Magic::Pony


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Acme-Magic-Pony>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/Acme-Magic-Pony>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/Acme-Magic-Pony>

=item * Search CPAN

L<http://search.cpan.org/dist/Acme-Magic-Pony>

=back


=head1 INSPIRATION

Michael G Schwern said:

    As long as we're talking platitudes, why don't we just say you never have to
    upgrade!  In fact, you never even have to install the software, magic ponies
    inside your computer will just know when you need it and go get it for you. [1]

    Also everyone gets a million dollars and a pet dragon.


    [1]  I anticipate the Acme::Magic::Pony auto-installer on CPAN by Monday.

=head1 COPYRIGHT & LICENSE

Copyright 2008 Jeff Lavallee, all rights reserved.

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


=head1 TODO

Acme::Magic::Pony doesn't offer to upgrade modules that aren't at the most recent 
version.  Maybe it's not so magic after all!

=head1 NOTE