annotate lib/PackageInfo.pm @ 0:4816e4a8ae95 draft default tip

Uploaded
author deepakjadmin
date Wed, 20 Jan 2016 09:23:18 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
1 package PackageInfo;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
2 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
3 # $RCSfile: PackageInfo.pm,v $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
4 # $Date: 2015/02/28 20:47:18 $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
5 # $Revision: 1.9 $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
6 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
7 # Author: Manish Sud <msud@san.rr.com>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
8 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
9 # Copyright (C) 2015 Manish Sud. All rights reserved.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
10 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
11 # This file is part of MayaChemTools.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
12 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
13 # MayaChemTools is free software; you can redistribute it and/or modify it under
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
14 # the terms of the GNU Lesser General Public License as published by the Free
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
15 # Software Foundation; either version 3 of the License, or (at your option) any
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
16 # later version.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
17 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
18 # MayaChemTools is distributed in the hope that it will be useful, but without
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
19 # any warranty; without even the implied warranty of merchantability of fitness
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
20 # for a particular purpose. See the GNU Lesser General Public License for more
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
21 # details.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
22 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
23 # You should have received a copy of the GNU Lesser General Public License
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
24 # along with MayaChemTools; if not, see <http://www.gnu.org/licenses/> or
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
25 # write to the Free Software Foundation Inc., 59 Temple Place, Suite 330,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
26 # Boston, MA, 02111-1307, USA.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
27 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
28
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
29 use strict;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
30 use Exporter;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
31 use Carp;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
32 use Text::ParseWords;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
33 use TextUtil;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
34 use FileUtil;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
35
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
36 use vars qw($AUTOLOAD @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
37
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
38 @ISA = qw(Exporter);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
39 @EXPORT = qw(GetPackageKeyValue SetPackageKeyValue IsPackageKeyNameAvailable);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
40 @EXPORT_OK = qw();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
41 %EXPORT_TAGS = (all => [@EXPORT, @EXPORT_OK]);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
42
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
43 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
44 # Load package data...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
45 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
46 my(%PackageDataMap);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
47 _LoadPackageData();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
48
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
49 # Return value of a specific key...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
50 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
51 sub GetPackageKeyValue {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
52 my($KeyName) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
53
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
54 return exists $PackageDataMap{$KeyName} ? $PackageDataMap{$KeyName} : 'Not Available';
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
55 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
56
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
57 # Set value of a specific key...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
58 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
59 sub SetPackageKeyValue {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
60 my($KeyName, $KeyValue) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
61
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
62 $PackageDataMap{$KeyName} = $KeyValue;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
63 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
64
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
65 # Check availability of a package key name...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
66 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
67 sub IsPackageKeyNameAvailable {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
68 my($KeyName) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
69
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
70 return exists $PackageDataMap{$KeyName} ? 1 : 0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
71 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
72
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
73 # Implements Set<KeyName> and Get<KeyName> functions...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
74 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
75 sub AUTOLOAD {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
76 my($KeyValue) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
77 my($PackageName, $FunctionName, $KeyName);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
78
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
79 ($PackageName, $FunctionName) = $AUTOLOAD =~ /^(.*?)::(.*?)$/;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
80
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
81 if (!($FunctionName =~ /^Get/ || $FunctionName =~ /^Set/)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
82 croak "Error: Can't locate function \"$FunctionName\" via package \"$PackageName\": This function is not automatically implemented by AUTOLOAD: Only Get<KeyName> and Set<KeyName> functions are implemented via AUTOLOAD...";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
83 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
84
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
85 ($KeyName) = $FunctionName =~ /^[SG]et(.*?)$/;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
86
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
87 if ($FunctionName =~ /^Set/ && !defined($KeyValue)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
88 carp "Warning: ${PackageName}::${FunctionName}: Didn't set value for key $KeyName: Key value for must be specified...\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
89 return undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
90 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
91
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
92 if ($FunctionName =~ /^Get/) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
93 return GetPackageKeyValue($KeyName);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
94 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
95 elsif ($FunctionName =~ /^Set/) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
96 return SetPackageKeyValue($KeyName, $KeyValue);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
97 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
98
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
99 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
100
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
101 # Load PackageInfo.csv files from <MayaChemTools>/lib directory...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
102 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
103 sub _LoadPackageData {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
104 my($PackageDataFile, $MayaChemToolsLibDir, $Key, $Value, $Line, $InDelim, @LineWords);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
105
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
106 $MayaChemToolsLibDir = GetMayaChemToolsLibDirName();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
107 $PackageDataFile = "$MayaChemToolsLibDir" . "/data/PackageInfo.csv";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
108
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
109 if (! -e "$PackageDataFile") {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
110 croak "Error: MayaChemTools package file, $PackageDataFile, is missing: Possible installation problems...";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
111 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
112
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
113 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
114 # Format:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
115 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
116 # "Key","Value"
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
117 # "PackageName","MayaChemTools"
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
118 # ... ...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
119 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
120
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
121 %PackageDataMap = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
122 $InDelim = "\,";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
123
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
124 open PACKAGEDATAFILE, "$PackageDataFile" or croak "Couldn't open $PackageDataFile: $! ...";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
125
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
126 # Skip lines up to column labels...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
127 LINE: while ($Line = GetTextLine(\*PACKAGEDATAFILE)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
128 if ($Line !~ /^#/) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
129 last LINE;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
130 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
131 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
132
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
133 # Process key/value pairs...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
134 LINE: while ($Line = GetTextLine(\*PACKAGEDATAFILE)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
135 if ($Line =~ /^#/) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
136 next LINE;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
137 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
138 @LineWords = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
139 @LineWords = quotewords($InDelim, 0, $Line);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
140 if (@LineWords != 2) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
141 croak "Error: The number of data fields, @LineWords, in $PackageDataFile must be 2.\nLine: $Line...";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
142 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
143 ($Key, $Value) = @LineWords;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
144
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
145 if (exists $PackageDataMap{$Key}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
146 carp "Warning: Multiple entries for key, $Key, in $PackageDataFile. Ignoring current line.\nLine: $Line...";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
147 next LINE;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
148 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
149
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
150 $PackageDataMap{$Key} = $Value;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
151 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
152 close PACKAGEDATAFILE;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
153 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
154
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
155 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
156
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
157 __END__
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
158
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
159 =head1 NAME
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
160
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
161 PackageInfo
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
162
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
163 =head1 SYNOPSIS
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
164
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
165 use PackageInfo;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
166
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
167 use PackageInfo qw(:all);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
168
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
169 =head1 DESCRIPTION
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
170
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
171 B<PackageInfo> module provides the following functions:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
172
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
173 GetPackageKeyValue, IsPackageKeyNameAvailable, SetPackageKeyValue
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
174
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
175 The functions to set and get package keyvalues not explicitly defined in this module
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
176 are implemented using Perl's AUTOLOAD functionality. These methods are generated
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
177 on-the-fly for a specified key:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
178
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
179 Set<KeyName>(<KeyValue>);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
180 $KeyValue = Get<KeyName>();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
181
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
182 B<PackageInfo> module provides functionality to retrieve information about MayaChemTools
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
183 package from PackagaInfo.csv which contains the following types key name and values:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
184
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
185 "KeyName","KeyValue"
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
186 "PackageName","MayaChemTools"
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
187 "ReleaseDate","Oct 21, 2010"
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
188 "VersionNumber","7.4"
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
189 "DevSoftwareEnvironment","Cygwin on Windows XP"
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
190 ... ...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
191 ... ...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
192
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
193 =head1 FUNCTIONS
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
194
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
195 =over 4
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
196
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
197 =item B<GetPackageKeyValue>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
198
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
199 $KeyValue = GetPackageKeyValue($KeyName);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
200
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
201 Returns B<KeyValue> for a specified I<KeyName>.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
202
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
203 =item B<IsPackageKeyNameAvailable>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
204
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
205 $Status = IsPackageKeyNameAvailable($KeyName);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
206
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
207 Returns 1 or 0 based on whether I<KeyName> is available in package info file.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
208
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
209 =item B<SetPackageKeyValue>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
210
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
211 SetPackageKeyValue($KeyName, $KeyValue);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
212
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
213 Sets I<KeyValue> for a I<KeyName>. No data is written to package info file.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
214
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
215 =back
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
216
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
217 =head1 AUTHOR
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
218
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
219 Manish Sud <msud@san.rr.com>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
220
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
221 =head1 COPYRIGHT
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
222
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
223 Copyright (C) 2015 Manish Sud. All rights reserved.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
224
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
225 This file is part of MayaChemTools.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
226
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
227 MayaChemTools is free software; you can redistribute it and/or modify it under
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
228 the terms of the GNU Lesser General Public License as published by the Free
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
229 Software Foundation; either version 3 of the License, or (at your option)
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
230 any later version.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
231
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
232 =cut