| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
# |
|
2
|
|
|
|
|
|
|
# Copyright (c) 2005-2006 IBM Corporation. |
|
3
|
|
|
|
|
|
|
# |
|
4
|
|
|
|
|
|
|
# All rights reserved. This program and the accompanying materials |
|
5
|
|
|
|
|
|
|
# are made available under the terms of the Eclipse Public License v1.0 |
|
6
|
|
|
|
|
|
|
# which accompanies this distribution, and is available at |
|
7
|
|
|
|
|
|
|
# http://www.eclipse.org/legal/epl-v10.html |
|
8
|
|
|
|
|
|
|
# |
|
9
|
|
|
|
|
|
|
# File: $Source: /var/lib/cvs/ODO/lib/ODO/Ontology/PerlEntity.pm,v $ |
|
10
|
|
|
|
|
|
|
# Created by: Stephen Evanchik( evanchik@us.ibm.com ) |
|
11
|
|
|
|
|
|
|
# Created on: 04/11/2005 |
|
12
|
|
|
|
|
|
|
# Revision: $Id: PerlEntity.pm,v 1.2 2009-11-25 17:58:25 ubuntu Exp $ |
|
13
|
|
|
|
|
|
|
# |
|
14
|
|
|
|
|
|
|
# Contributors: |
|
15
|
|
|
|
|
|
|
# IBM Corporation - initial API and implementation |
|
16
|
|
|
|
|
|
|
# |
|
17
|
|
|
|
|
|
|
package ODO::Ontology::PerlEntity; |
|
18
|
|
|
|
|
|
|
|
|
19
|
2
|
|
|
2
|
|
14
|
use strict; |
|
|
2
|
|
|
|
|
4
|
|
|
|
2
|
|
|
|
|
164
|
|
|
20
|
2
|
|
|
2
|
|
12
|
use warnings; |
|
|
2
|
|
|
|
|
5
|
|
|
|
2
|
|
|
|
|
567
|
|
|
21
|
|
|
|
|
|
|
|
|
22
|
2
|
|
|
2
|
|
13
|
use base qw/ODO/; |
|
|
2
|
|
|
|
|
4
|
|
|
|
2
|
|
|
|
|
873
|
|
|
23
|
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
__PACKAGE__->mk_accessors(qw/ontology/); |
|
25
|
|
|
|
|
|
|
|
|
26
|
2
|
|
|
2
|
|
14
|
use vars qw /$VERSION/; |
|
|
2
|
|
|
|
|
10
|
|
|
|
2
|
|
|
|
|
983
|
|
|
27
|
|
|
|
|
|
|
$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /: (\d+)\.(\d+)/; |
|
28
|
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
sub __is_perl_package { |
|
30
|
0
|
|
|
0
|
|
|
my ($self, $perl_test_structure) = @_; |
|
31
|
|
|
|
|
|
|
|
|
32
|
0
|
0
|
|
|
|
|
return 1 |
|
33
|
|
|
|
|
|
|
if(UNIVERSAL::can($perl_test_structure, 'new')); |
|
34
|
|
|
|
|
|
|
|
|
35
|
0
|
|
|
|
|
|
return 0; |
|
36
|
|
|
|
|
|
|
} |
|
37
|
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
sub init { |
|
40
|
0
|
|
|
0
|
1
|
|
my ($self, $config) = @_; |
|
41
|
0
|
|
|
|
|
|
$self->params($config, qw/ontology/); |
|
42
|
0
|
|
|
|
|
|
return $self; |
|
43
|
|
|
|
|
|
|
} |
|
44
|
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
1; |
|
47
|
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
__END__ |