r1064 - in packages/libchemistry-elements-perl/branches/upstream/current: . t
Carlo Segre
segre-guest@costa.debian.org
Thu, 26 May 2005 03:22:16 +0000
Author: segre-guest
Date: 2005-05-26 03:22:15 +0000 (Thu, 26 May 2005)
New Revision: 1064
Added:
packages/libchemistry-elements-perl/branches/upstream/current/META.yml
packages/libchemistry-elements-perl/branches/upstream/current/t/
packages/libchemistry-elements-perl/branches/upstream/current/t/compile.t
packages/libchemistry-elements-perl/branches/upstream/current/t/pod.t
packages/libchemistry-elements-perl/branches/upstream/current/t/pod_coverage.t
packages/libchemistry-elements-perl/branches/upstream/current/t/test_manifest
Modified:
packages/libchemistry-elements-perl/branches/upstream/current/Elements.pm
packages/libchemistry-elements-perl/branches/upstream/current/MANIFEST
packages/libchemistry-elements-perl/branches/upstream/current/Makefile.PL
Log:
Load /tmp/tmp.LiRqsg/libchemistry-elements-perl-1.01 into
packages/libchemistry-elements-perl/branches/upstream/current.
Modified: packages/libchemistry-elements-perl/branches/upstream/current/Elements.pm
===================================================================
--- packages/libchemistry-elements-perl/branches/upstream/current/Elements.pm 2005-05-25 16:12:16 UTC (rev 1063)
+++ packages/libchemistry-elements-perl/branches/upstream/current/Elements.pm 2005-05-26 03:22:15 UTC (rev 1064)
@@ -10,10 +10,8 @@
@ISA = qw(Exporter);
@EXPORT_OK = qw(get_Z get_symbol get_name);
@EXPORT = qw();
-$VERSION = 0.91;
+$VERSION = 1.01;
-sub Version { return $VERSION };
-
use subs qw(_get_name_by_Z
_get_symbol_by_Z
_get_name_by_symbol
@@ -671,12 +669,37 @@
$name = $element->name; # $name is 'Gold'
-=head1 EXPORTABLE FUNCTIONS
+=head2 Instance methods
+=over 4
+
+=item new( Z | SYMBOL | NAME )
+
+Create a new instance from either the atomic number, symbol, or
+element name.
+
+=item Z
+
+Return the atomic number of the element.
+
+=item name
+
+Return the name of the element.
+
+=item symbol
+
+Return the symbol of the element.
+
+=back
+
+=head2 Exportable functions
+
These functions can be exported. They are not exported by default.
-=head2 get_symbol()
+=over 4
+=item get_symbol()
+
This function attempts to return the symbol of the chemical element given
either the chemical symbol, element name, or atmoic number. The
function does its best to interpret inconsistent input data (e.g.
@@ -705,7 +728,7 @@
You can modify the symbols (e.g. you work for UCal ;) ) by changing
the data at the end of this module.
-=head2 get_name()
+=item get_name()
This function attempts to return the name the chemical element given
either the chemical symbol, element name, or atomic number. The
@@ -733,7 +756,7 @@
You can modify the names (e.g. for different languages) by changing
the data at the end of this module.
-=head2 get_Z()
+=item get_Z()
This function attempts to return the atomic number of the chemical
element given either the chemical symbol, element name, or atomic
@@ -759,6 +782,8 @@
#stuff
}
+=back
+
The package constructor automatically finds the largest defined
atomic number (in case you add your own heavy elements).
@@ -794,8 +819,14 @@
anyone should make changes to the data, i would like to get a copy
so that i can include it in future releases :)
+=head1 COPYRIGHT
+
+Copright 2005, brian d foy
+
+You can use this module under the same terms as Perl itself.
+
=head1 AUTHOR
-brian d foy <comdog@panix.com>
+brian d foy, CC< <bdfoy@cpan.org> >>
=cut
Modified: packages/libchemistry-elements-perl/branches/upstream/current/MANIFEST
===================================================================
--- packages/libchemistry-elements-perl/branches/upstream/current/MANIFEST 2005-05-25 16:12:16 UTC (rev 1063)
+++ packages/libchemistry-elements-perl/branches/upstream/current/MANIFEST 2005-05-26 03:22:15 UTC (rev 1064)
@@ -1,6 +1,11 @@
Changes
+chart_test
+Elements.pm
+Makefile.PL
MANIFEST
-Makefile.PL
-Elements.pm
+META.yml Module meta-data (added by MakeMaker)
README
-chart_test
+t/compile.t
+t/pod.t
+t/pod_coverage.t
+t/test_manifest
Added: packages/libchemistry-elements-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libchemistry-elements-perl/branches/upstream/current/META.yml 2005-05-25 16:12:16 UTC (rev 1063)
+++ packages/libchemistry-elements-perl/branches/upstream/current/META.yml 2005-05-26 03:22:15 UTC (rev 1064)
@@ -0,0 +1,10 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Chemistry-Elements
+version: 1.01
+version_from: Elements.pm
+installdirs: site
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.23
Modified: packages/libchemistry-elements-perl/branches/upstream/current/Makefile.PL
===================================================================
--- packages/libchemistry-elements-perl/branches/upstream/current/Makefile.PL 2005-05-25 16:12:16 UTC (rev 1063)
+++ packages/libchemistry-elements-perl/branches/upstream/current/Makefile.PL 2005-05-26 03:22:15 UTC (rev 1064)
@@ -1,7 +1,20 @@
+# $Id: Makefile.PL,v 1.2 2005/05/25 00:20:37 comdog Exp $
use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
+
+eval "use Test::Manifest";
+
WriteMakefile(
- 'NAME' => 'Chemistry::Elements',
- 'VERSION_FROM' => 'Elements.pm', # finds $VERSION
-);
+ 'NAME' => 'Chemistry::Elements',
+ 'VERSION_FROM' => 'Elements.pm',
+
+ 'PM' => {
+ 'Elements.pm' => '$(INST_LIBDIR)/Elements.pm',
+ },
+
+ 'MAN3PODS' => {
+ 'Elements.pm' => '$(INST_MAN3DIR)/Chemistry::Elements.3',
+ },
+
+ clean => { FILES => q|Chemistry-Elements-*| },
+
+ );
Added: packages/libchemistry-elements-perl/branches/upstream/current/t/compile.t
===================================================================
--- packages/libchemistry-elements-perl/branches/upstream/current/t/compile.t 2005-05-25 16:12:16 UTC (rev 1063)
+++ packages/libchemistry-elements-perl/branches/upstream/current/t/compile.t 2005-05-26 03:22:15 UTC (rev 1064)
@@ -0,0 +1,12 @@
+# $Id: compile.t,v 1.1 2005/05/25 00:19:31 comdog Exp $
+BEGIN {
+ @classes = qw( Chemistry::Elements );
+ }
+
+use Test::More tests => scalar @classes;
+
+foreach my $class ( @classes )
+ {
+ print "bail out! $class did not compile" unless use_ok( $class );
+ }
+
Added: packages/libchemistry-elements-perl/branches/upstream/current/t/pod.t
===================================================================
--- packages/libchemistry-elements-perl/branches/upstream/current/t/pod.t 2005-05-25 16:12:16 UTC (rev 1063)
+++ packages/libchemistry-elements-perl/branches/upstream/current/t/pod.t 2005-05-26 03:22:15 UTC (rev 1064)
@@ -0,0 +1,5 @@
+# $Id: pod.t,v 1.1 2005/05/25 00:19:32 comdog Exp $
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
\ No newline at end of file
Added: packages/libchemistry-elements-perl/branches/upstream/current/t/pod_coverage.t
===================================================================
--- packages/libchemistry-elements-perl/branches/upstream/current/t/pod_coverage.t 2005-05-25 16:12:16 UTC (rev 1063)
+++ packages/libchemistry-elements-perl/branches/upstream/current/t/pod_coverage.t 2005-05-26 03:22:15 UTC (rev 1064)
@@ -0,0 +1,15 @@
+# $Id: pod_coverage.t,v 1.1 2005/05/25 00:19:32 comdog Exp $
+
+use Test::More;
+eval "use Test::Pod::Coverage";
+
+if( $@ )
+ {
+ plan skip_all => "Test::Pod::Coverage required for testing POD";
+ }
+else
+ {
+ plan tests => 1;
+
+ pod_coverage_ok( "Chemistry::Elements" );
+ }
Added: packages/libchemistry-elements-perl/branches/upstream/current/t/test_manifest
===================================================================
--- packages/libchemistry-elements-perl/branches/upstream/current/t/test_manifest 2005-05-25 16:12:16 UTC (rev 1063)
+++ packages/libchemistry-elements-perl/branches/upstream/current/t/test_manifest 2005-05-26 03:22:15 UTC (rev 1064)
@@ -0,0 +1,4 @@
+# $Id: test_manifest,v 1.1 2005/05/25 00:19:32 comdog Exp $
+compile.t
+pod.t
+pod_coverage.t
\ No newline at end of file