line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Kwiki::Scriptaculous; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
25542
|
use warnings; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
36
|
|
4
|
1
|
|
|
1
|
|
5
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
37
|
|
5
|
1
|
|
|
1
|
|
488
|
use Kwiki::Plugin '-Base'; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
use mixin 'Kwiki::Installer'; |
7
|
|
|
|
|
|
|
our $VERSION = '0.01'; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
const class_title => 'Script.aculo.us Library'; |
10
|
|
|
|
|
|
|
const class_id => 'scriptaculous'; |
11
|
|
|
|
|
|
|
const javascript_file => 'scriptaculous.js'; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
sub register { |
14
|
|
|
|
|
|
|
my $registry = shift; |
15
|
|
|
|
|
|
|
$registry->add(prerequisite => 'prototype'); |
16
|
|
|
|
|
|
|
$registry->add(preload => 'scriptaculous', priority => 1); |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; # End of Kwiki::Scriptaculous |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
__DATA__ |