File Coverage

blib/lib/WWW/Mechanize/Firefox/DSL.pm

Criterion	Covered	Total	%
statement	24	31	77.4
branch	1	4	25.0
condition	2	5	40.0
subroutine	7	7	100.0
pod			n/a
total	34	47	72.3

package WWW::Mechanize::Firefox::DSL;
use strict;
use WWW::Mechanize::Firefox;
use Object::Import;
use Carp qw(croak);

use vars qw($VERSION @CARP_NOT);
$VERSION = '0.79';

@CARP_NOT = (qw[
    WWW::Mechanize::Firefox
]);

=head1 NAME

WWW::Mechanize::Firefox::DSL - Domain Specific Language for short scripts

=head1 SYNOPSIS

    use WWW::Mechanize::Firefox::DSL '$mech';

    get 'http://google.de';

    my @links = selector('a');
    print $_->{innerHTML},"\n" for @links;

    click($links[0]);

    print content;

This module exports all methods of one WWW::Mechanize::Firefox
object as subroutines. That way, you can write short scripts without
cluttering every line with C<< $mech-> >>.

This module is highly experimental and might vanish from the distribution
again if I find that it is useless.

=cut

sub import {
    my ($class, %options);
    if (@_ == 2) {
        ($class, $options{ name }) = @_;
    } else {
        ($class, %options) = @_;
    };
    my $target = delete $options{ target } || caller;
    my $name = delete $options{ name } || '$mech';
    my $mech = WWW::Mechanize::Firefox->new(%options);

    $name =~ s/^[\$]//
        or croak 'Variable name must start with $';
    {
        no strict 'refs';
        *{"$target\::$name"} = \$mech;
        import Object::Import \${"$target\::$name"},
                              deref => 1,
                              target => $target,
                              ;
    };
};

1;

=head1 AUTHORS

Max Maischein C

=head1 COPYRIGHT (c)

Copyright 2009-2014 by Max Maischein C.

=head1 LICENSE

This module is released under the same terms as Perl itself.

=cut