navigator.registerContentHandler("application/vnd.mozilla.maybe.feed",
                                 "http://www.theeasyreaderurl.com?feed=%s",
                                 "Easy Reader");

### Smarty
# usage: {{smarty('検索語')}}
sub smarty {
	my ($str) = @_;
	my $prefix = 'http://smarty.php.net/manual/en/search.php?query=';
	my $enc = url_encode($str);
	return qq(<a href="$prefix$enc">$str</a>);
}

$smarty->debugging = true;

$smarty->debugging = true;
$smarty->assign('_smarty_debug_output', 'html');

$smarty->debugging_ctrl = 'URL';

{debug} 

{debug output='html'} 

{$foo|@debug_print_var}

{$foo|@debug_print_var:2:100} 

my $diff = String::Diff::diff_fully('this is Perl', 'this is Ruby');
for my $line (@{ $diff->[0] }) {
    print "$line->[0]: '$line->[1]'\n";
}
# u: 'this is '
# -: 'Perl'

for my $line (@{ $diff->[1] }) {
    print "$line->[0]: '$line->[1]'\n";
}
# u: 'this is '
# +: 'Ruby'

my $diff = String::Diff::diff('this is Perl', 'this is Ruby');

print "$diff->[0]\n";# this is [Perl]
print "$diff->[1]\n";# this is {Ruby}

my $diff = String::Diff::diff('this is Perl', 'this is Ruby',{
    remove_open => '<del>',
    remove_close => '</del>',
    append_open => '<ins>',
    append_close => '</ins>',
});

print "$diff->[0]\n";# this is <del>Perl</del>
print "$diff->[1]\n";# this is <ins>Ruby</ins>

my $diff = String::Diff::diff_merge('this is Perl', 'this is Ruby'{
    remove_open => '<del>',
    remove_close => '</del>',
    append_open => '<ins>',
    append_close => '</ins>',
});
int "$diff\n";# this is <del>Perl</del><ins>Ruby</ins>

my $diff = String::Diff::diff_regexp('this is Perl', 'this is Ruby');
print "$diff\n";# this\ is\ (?:Perl|Ruby)