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

    use MozRepl;
    use 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/", selected => 1 });

    sleep(5);

    my $links = $repl->linkextor();

    print dump($links);

package MozRepl::Plugin::LinkExtor;

use strict;
use warnings;

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

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

our $VERSION = '0.01';

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

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

    my $params = {};

    $params->{repl} = $ctx->repl;
    $params->{all} = ($args->{all}) ? 'true' : 'false';

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

    $result =~ s/^"//;
    $result =~ s/"$//;
    $result =~ s/\\"/"/g;

    return JSON->new(barekey => 1, quotapos => 1)->jsonToObj($result);
}

1; # End of MozRepl::Plugin::LinkExtor

__DATA__
__execute__
(function(all) {
  function documentLinksToJSON(cDocument) {
    function elementToJSON(element) {
      var result = {
        "nodeName": "",
        "attributes": {}
      };
      
      result.nodeName = element.nodeName;
      
      for (var i = 0, l = element.attributes.length; i < l; i++) {
        if ((/^on/i).test(element.attributes[i].nodeName)) {
          continue;
        }

        result.attributes[element.attributes[i].nodeName.toString()] = element.attributes[i].nodeValue;
      }
      
      return result;
    }
    
    var result = [];
    
    return result.concat(
                         Array.prototype.map.call(
                                                  cDocument.getElementsByTagName("link"),
                                                  elementToJSON
                                                  ),
                         Array.prototype.map.call(
                                                  cDocument.getElementsByTagName("a"),
                                                  elementToJSON
                                                  )
                         ).toSource();
  }

  if (all) {
    return JSONstring.make(Array.prototype.map.call(
        window.getBrowser().tabContainer.childNodes, 
        function(tab) {
            return documentLinksToJSON(tab.linkedBrowser.contentDocument);
        }
    ));
  }
  else {
    return JSONstring.make(documentLinksToJSON(window.getBrowser().contentDocument));
  }
})([% all %]);
__END__