}
else {
warn "$thislib not found in $thispth\n" if $verbose;
next;
}
warn "'-l$thislib' found at $fullname\n" if $verbose;
push @libs, $fullname unless $libs_seen{$fullname}++;
$found++;
$found_lib++;
# Now update library lists
####
}
else {
#warn "$thislib not found in $thispth\n" if $verbose;
#next;
}
#warn "'-l$thislib' found at $fullname\n" if $verbose;
#push @libs, $fullname unless $libs_seen{$fullname}++;
$found++;
$found_lib++;
# Now update library lists
##
##
}
else {
if(!defined($ENV{MM_DISABLE_LIBCHECKS}) || $ENV{MM_DISABLE_LIBCHECKS} == 0) {
warn "$thislib not found in $thispth\n" if $verbose;
next;
}
}
if(!defined($ENV{MM_DISABLE_LIBCHECKS}) || $ENV{MM_DISABLE_LIBCHECKS} == 0) {
warn "'-l$thislib' found at $fullname\n" if $verbose;
push @libs, $fullname unless $libs_seen{$fullname}++;
}
$found++;
$found_lib++;
# Now update library lists
##
##
MM_DISABLE_LIBCHECKS=1 perl Makefile.PL
##
##
#!/usr/bin/env perl
=head1 NAME
gtk3_browser.pl - The PerlMonks Browser
=head1 SYNOPSIS
browser.pl [URL]
Simple usage:
browser.pl http://search.cpan.org/
=head1 DESCRIPTION
Display a web page as "Native Application".
=cut
use strict;
use warnings;
use Gtk3 -init;
use Gtk3::WebKit;
sub main {
my ($url) = shift @ARGV || 'http://www.perlmonks.org';
my $window = Gtk3::Window->new('toplevel');
$window->set_default_size(800, 600);
$window->signal_connect(destroy => sub { Gtk3->main_quit() });
$window->set_title("PerlMonks Native Client");
# Create a WebKit widget
my $view = Gtk3::WebKit::WebView->new();
my $settings = $view->get_settings();
$settings->set_property("user-agent", 'PerlMonks/1.0');
$settings->set_property("enable-default-context-menu", 0);
# Load a page
$view->load_uri($url);
# Pack the widgets together
my $scrolls = Gtk3::ScrolledWindow->new();
$scrolls->add($view);
$window->add($scrolls);
$window->show_all();
Gtk3->main();
return 0;
}
exit main() unless caller;