mattn

The following report has been written by the PAUSE namespace indexer.
Please contact [email protected] if there are any open questions.
 Id

              User: MATTN (Yasuhiro Matsumoto)
 Distribution file: GNTP-Growl-0.01.tar.gz
   Number of files: 32
        *.pm files: 18
            README: GNTP-Growl-0.01/README
          META.yml: GNTP-Growl-0.01/META.yml

mattn

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
use WWW::Mechanize::AutoPager;
use Web::Scraper;
use YAML::Syck;

my $mech = WWW::Mechanize->new(timeout => 10);

mattn

use strict;
use warnings;
use lib qw/lib/;
use URI;
use XML::Feed;
use XML::Feed::Deduper;

binmode STDOUT, ":encoding(cp932)" if $^O eq "MSWin32";
my $deduper = XML::Feed::Deduper->new(
    path => '/tmp/feed.dat'

mattn

(function($) {
  var currentRadius, multiplier;

  function parseOptions(options) {
    return {
      RADIUS:     (options.radius    || 20),
      DURATION:   (options.duration  || 500),
      TEXT_COLOR: (options.textColor || '#fff'),
      HALO_COLOR: (options.haloColor || '#777')
    }

mattn

#!perl
use strict;
use warnings;
use Encode;
use GNTP::Growl;
use Net::Wassr;
use Date::Format;
use Config::Pit;

my $application = 'GrowlWassr';

mattn

use strict;
use warnings;
use WWW::Shorten::Simple;

my $svc = WWW::Shorten::Simple->new('RevCanonical');
my $short_url = $svc->shorten('http://www.flickr.com/photos/mattn_jp/3253743034/');
#my $short_url = $svc->shorten('http://24ways.org/2008/recession-tips-for-web-designers');

warn $short_url;
my $canon_url = $svc->unshorten($short_url);

mattn

curl -s http://twitter.com/statuses/user_timeline/?format=json | python -c "import sys,simplejson; print simplejson.dumps(simplejson.loads(sys.stdin.read()),indent=4)"

mattn

#!/usr/bin/perl

use strict;
use warnings;
use Config::Pit;
use WWW::Mechanize;

my $file = shift or die("usage: $0 [file]");
my $config = pit_get(
    "dropbox",

mattn

# Blosxom Plugin: urlshorter
# Author(s): Kyo Nagashima <[email protected]>, http://hail2u.net/
# Version: 2009-04-15
# Documentation: See the bottom of this file or type: perldoc urlshorter

package urlshorter;

use strict;
use vars qw($link_element);

mattn

use strict;
use warnings;
use utf8;
use YAML;
use DBIx::Simple;

my $db = DBIx::Simple->connect("dbi:SQLite:dbname=c:/foo.db", "", "")
	or die DBIx::Simple->error;

$db->func(1, "enable_load_extension");