wakaba

{
  package test::fuga;
  sub DESTROY {
    warn "fuga->DESTROY called";
  }
}
my $fuga = bless {}, 'test::fuga';

my @hoge;
Internals::SvREADONLY (@hoge, 1);

wakaba

PhantomJS has crashed. Please read the crash reporting guide at https://code.google.com/p/phantomjs/wiki/CrashReporting and file a bug report at https://code.google.com/p/phantomjs/issues/entry with the crash dump file attached: /tmp/3be5dad0-1837-ee46-64d7ad5c-0642c232.dmp

wakaba

  ['*' => 'HTMLUnknownElement'],
  ['html' => 'HTMLHtmlElement'],
  ['head' => 'HTMLHeadElement'],
  ['title' => 'HTMLTitleElement'],
  ['base' => 'HTMLBaseElement'],
  ['link' => 'HTMLLinkElement'],
  ['meta' => 'HTMLMetaElement'],
  ['style' => 'HTMLStyleElement'],
  ['script' => 'HTMLScriptElement'],

wakaba

sub define_in_lang_methods {
    my ($class, %args) = @_;

    my $copies = join "\n", map {
        $_ . ' => $self->' . $_ . ',';
    } @{$args{copied_columns} or []};

    eval sprintf q{
        sub %s::%s {
            my $self = shift;

wakaba

## DOM futures in Perl (experimental)
##
## Spec: <http://dom.spec.whatwg.org/#futures>

use strict;
use warnings;

package Future;

# "queue a task"

wakaba

get-ugomemo-movies.pl
get-ugoletters.pl

Save your own ugomemo movies and ugoletters.

get-ugomemo-movies.pl requires your API access token.

get-ugoletters.pl requires your Hatena OAuth consumer token & secret
with the "read_private" scop enabled.

wakaba

$Called = 0;

{
    package Package1;

    sub DESTROY {
        $main::Object1 = $_[0];
        $main::Called++;
    }

wakaba

bin/cinnamon
   |
Cinnamon::CLI
   +------------------Getopt::Long::Parser
   +------------------Cinnamon::KeyChain
   +------------------Cinnamon::Logger <-------------------------------------------+
   |                       |                                                       |
Cinnamon::Context <-----------------------------------------------------Cinnamon   |
   |                       |                                               |       |
   +------------------deploy.pl-----------------+-------------+---------Cinnamon::DSL=Cinnamon::DSL::Capistrano

wakaba

                                bin/cinnamon
                                   |call
                                   v                                                                  call
                                  CLI -------------------------------------------------------------------> deploy.pl
                                   |call                                                                          |
                                   v                                                                              |
                  +- - - - - - -> task                                                                            |
                  :                |call                                                                          |
                  :                V                                                                              |
                  :               DSL                                                                             |

wakaba

## Open JTalk installer
##
## hts_engine <http://hts-engine.sourceforge.net/>
## Open JTalk <http://open-jtalk.sourceforge.net/>
## NIT ATR503 M001 <http://open-jtalk.sourceforge.net/readme_hts_voice_nitech_jp_atr503_m001.php>
## Mei <http://sourceforge.net/projects/mmdagent/files/MMDAgent_Example/>
##
## Usage:
##
##   # apt-get install mono-runtime