| MozRepl-Plugin-LinkTools documentation | Contained in the MozRepl-Plugin-LinkTools distribution. |
MozRepl::Plugin::OpenNewTab - Open new tab and url.
version 0.01
use MozRepl;
my $repl = MozRepl->new;
$repl->setup({ plugins => { plugins => [qw/OpenNewTab/] } });
$repl->open_new_tab({ url => "http://d.hatena.ne.jp/ZIGOROu/", selected => 1 });
Add open_new_tab() method to MozRepl.
Context object. See MozRepl.
Hash reference. See below detail.
Return constant value, "open_new_tab". Used by method name adding method to MozRepl object.
Toru Yamaguchi, <zigorou@cpan.org>
Please report any bugs or feature requests to
bug-mozrepl-plugin-opennewtab@rt.cpan.org, or through the web interface at
http://rt.cpan.org. I will be notified, and then you'll automatically be
notified of progress on your bug as I make changes.
Copyright 2007 Toru Yamaguchi, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| MozRepl-Plugin-LinkTools documentation | Contained in the MozRepl-Plugin-LinkTools distribution. |
package MozRepl::Plugin::OpenNewTab; use strict; use warnings; use base qw(MozRepl::Plugin::Base); use MozRepl::Util;
our $VERSION = '0.01';
sub execute { my ($self, $ctx, $args) = @_; my $params = {}; $params->{repl} = $ctx->repl; $params->{url} = MozRepl::Util->javascript_value($args->{url}); $params->{selected} = ($args->{selected}) ? "true" : "false"; my $command = $self->process('execute', $params); my $result = $ctx->execute($command); return ($result eq 'true') ? 1 : 0; }
sub method_name { return "open_new_tab"; }
1; # End of MozRepl::Plugin::OpenNewTab __DATA__ __execute__ (function(url, selected) { selected = (selected) ? true : false; var tab; try { tab = window.top.getBrowser().addTab(url); if (!tab) { return false; } if (selected) { window.top.getBrowser().selectedTab = tab; } } catch (e) { return false; } return true; })([% url %], [% selected %]) __END__