Yet Another CPAN Grep

MozRepl-Plugin-LinkTools ( Z/ZI/ZIGOROU/MozRepl-Plugin-LinkTools-0.01.tar.gz, ZIGOROU, 2007; MetaCPAN )

MozRepl-Plugin-LinkTools/lib/MozRepl/Plugin/Location.pm ( view source; MetaCPAN )

lugin::Location;

use strict;
use warnings;

use base qw(MozRepl::Plugin::Base);
use JSON::Any qw(XS DWIW Syck JSON);

=head1 NAME

MozRepl::Plugin::Location - Dump window.location object as possible.

$self->process('execute', $params);
    my $result = $ctx->execute($command);

    return JSON::Any->new->jsonToObj($result);
}

=head1 AUTHOR

Toru Yamaguchi, C<< <zigorou@cpan.org> >>

=head1 BUGS

epl::Plugin::Location

__DATA__
__execute__
(function(all) {

  function getLocationAsJSON(tWindow) {
    var json = {};

    for (var p in tWindow.location) {
      var type;

      try {
        typ

MozRepl-Plugin-LinkTools ( Z/ZI/ZIGOROU/MozRepl-Plugin-LinkTools-0.01.tar.gz, ZIGOROU, 2007; MetaCPAN )

MozRepl-Plugin-LinkTools/lib/MozRepl/Plugin/LinkExtor.pm ( view source; MetaCPAN )

r;

use strict;
use warnings;

use base qw(MozRepl::Plugin::Base);

use Carp::Clan qw(croak);
use JSON;

=head1 NAME

MozRepl::Plugin::LinkExtor - Extract "a" and "link" elements.

=head1 VERSION

ver

Data::Dump qw(dump);

    my $repl = MozRepl->new;
    $repl->setup({ plugins => { plugins => [qw/JSON OpenNewTab LinkExtor/] } });

    $repl->open_new_tab({ url => "http://search.cpan.org/", selecte

cute {
    my ($self, $ctx, $args) = @_;

    croak("Please include MozRepl::Plugin::JSON") unless ($ctx->can("json"));

    my $params = {};

    $params->{repl} = $ctx->repl;
    $params->{all} = ($