view release on metacpan or  search on metacpan

examples/registry_viewer  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Gimp;
use Gimp::Fu;

sub process;
sub scraper(&);

sub filesize_str {
  my $size = $_[0];
  ($size > 1099511627776)
   ? sprintf ( "%.2f TiB", $size/1099511627776 )
   : ( $size > 1073741824 )
   ? sprintf ( "%.2f GiB", $size/1073741824 )
   : ( $size > 1048576 )
   ? sprintf ( "%.2f MiB", $size/1048576 )
   : ( $size > 1024 )

examples/registry_viewer.threads  view on Meta::CPAN

use warnings;
use threads;
use threads::shared;
use constant {RV_MAX_THREAD => 3};

use Gtk2 qw(-init -threads-init);
use Gimp;
use Gimp::Fu;

sub process;
sub scraper(&);

sub filesize_str {
  my $size = $_[0];
  ($size > 1099511627776)
   ? sprintf ( "%.2f TiB", $size/1099511627776 )
   : ( $size > 1073741824 )
   ? sprintf ( "%.2f GiB", $size/1073741824 )
   : ( $size > 1048576 )
   ? sprintf ( "%.2f MiB", $size/1048576 )
   : ( $size > 1024 )

lib/Gimp.pm  view on Meta::CPAN

    @cb = cbchain(qw(proc));
    for (@cb) { &$_ }
  }
}

sub register_callback($$) {
   push @{$callback{$_[0]}}, $_[1];
   warn "$$-register_callback(@_)" if $Gimp::verbose >= 2;
}

sub on_query(&) { register_callback "query", $_[0] }
sub on_net  (&) { register_callback "net"  , $_[0] }
sub on_lib  (&) { register_callback "lib"  , $_[0] }
sub on_run  (&) { register_callback "run"  , $_[0] }
sub on_quit  (&) { register_callback "quit"  , $_[0] }
sub on_proc  (&) { register_callback "proc"  , $_[0] }

sub main {
   no strict 'refs';
   &{"$interface_pkg\::gimp_main"};
}