line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Kephra::API; |
2
|
|
|
|
|
|
|
our $VERSION = '0.02'; |
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
|
942
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
37
|
|
5
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
260
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
# passive part, just getter |
8
|
0
|
|
|
0
|
0
|
|
sub settings { Kephra::Config::Global::settings() } |
9
|
0
|
|
|
0
|
0
|
|
sub localisation { Kephra::Config::Localisation::strings() } |
10
|
0
|
|
|
0
|
0
|
|
sub commands { Kephra::CommandList::data() } |
11
|
0
|
|
|
0
|
0
|
|
sub events { Kephra::EventTable::_table() } |
12
|
0
|
|
|
0
|
0
|
|
sub menu { Kephra::Menu::_all() } |
13
|
0
|
|
|
0
|
0
|
|
sub toolbar { Kephra::ToolBar::_all() } |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
# active part |
16
|
|
|
|
|
|
|
sub run_cmd { |
17
|
0
|
|
|
0
|
0
|
|
my @cmd; |
18
|
0
|
|
|
|
|
|
push @cmd, split /\s*,\s*/, $_ for @_; |
19
|
0
|
|
|
|
|
|
Kephra::CommandList::run_cmd_by_id($_) for @cmd; |
20
|
|
|
|
|
|
|
} |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
1; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
=head1 NAME |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
Kephra::API - Interface between Modules and Plugins |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
=head1 DESCRIPTION |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
=cut |