use Script ();

# Data extracted from XML.
my %snippets = (
   onInit   => 'use strict; my $x=2;',
   onAwaken => 'print ++$y;',
);

my $script = Script->new(\%snippets);
$script->onInit();
$script->onAwaken();