Mercurial > org-tools

diff main-firefox.pl @ 10:83e16df2288a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
still experimenting
author Robert McIntyre <rlm@mit.edu>
date Tue, 25 Oct 2011 07:52:02 -0700
parents
children
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/main-firefox.pl	Tue Oct 25 07:52:02 2011 -0700
     1.3 @@ -0,0 +1,8 @@
     1.4 +#!/usr/bin/perl
     1.5 +
     1.6 +use WWW::Mechanize::Firefox;
     1.7 +my $mech = WWW::Mechanize::Firefox->new();
     1.8 +$mech->get('http://google.com');
     1.9 +
    1.10 +$mech->eval_in_page('alert("Hello Firefox")');
    1.11 +my $png = $mech->content_as_png();