line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl -w |
2
|
|
|
|
|
|
|
# |
3
|
|
|
|
|
|
|
# Declare versions that will be used in pb |
4
|
|
|
|
|
|
|
# Those are filtered with pb mecanism |
5
|
|
|
|
|
|
|
# and have been isolated here to avoid unrelated effects |
6
|
|
|
|
|
|
|
# |
7
|
|
|
|
|
|
|
# Copyright B. Cornec 2007-2012 |
8
|
|
|
|
|
|
|
# Provided under the GPL v2 |
9
|
|
|
|
|
|
|
# |
10
|
|
|
|
|
|
|
package ProjectBuilder::Version; |
11
|
|
|
|
|
|
|
|
12
|
2
|
|
|
2
|
|
13
|
use strict; |
|
2
|
|
|
|
|
4
|
|
|
2
|
|
|
|
|
91
|
|
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
# Inherit from the "Exporter" module which handles exporting functions. |
15
|
|
|
|
|
|
|
|
16
|
2
|
|
|
2
|
|
12
|
use vars qw($VERSION $REVISION @ISA @EXPORT); |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
148
|
|
17
|
2
|
|
|
2
|
|
11
|
use Exporter; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
234
|
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
# Export, by default, all the functions into the namespace of |
20
|
|
|
|
|
|
|
# any code which uses this module. |
21
|
|
|
|
|
|
|
our @ISA = qw(Exporter); |
22
|
|
|
|
|
|
|
our @EXPORT = qw(pb_version_init); |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
$VERSION = "0.12.2"; |
25
|
|
|
|
|
|
|
$REVISION = "1699"; |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
sub pb_version_init { |
28
|
|
|
|
|
|
|
|
29
|
2
|
|
|
2
|
0
|
5
|
my $projectbuilderver = $VERSION; |
30
|
2
|
|
|
|
|
4
|
my $projectbuilderrev = $REVISION; |
31
|
|
|
|
|
|
|
|
32
|
2
|
|
|
|
|
10
|
return($projectbuilderver,$projectbuilderrev); |
33
|
|
|
|
|
|
|
} |
34
|
|
|
|
|
|
|
1; |