diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-12-17 17:47:28 +0100 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-12-17 20:42:10 +0100 |
| commit | 3aba144a3b8c4bbb9ea8e3d1539774f363b8dee4 (patch) | |
| tree | 2ad72909198f20ce72c26c0e384a60bb06fa0c0f /Aufgabe6/RPN/lib | |
| parent | b09a0b1174052c2da2fcd59536efd7347db2f7e2 (diff) | |
| download | Skriptsprachen-3aba144a3b8c4bbb9ea8e3d1539774f363b8dee4.tar.gz Skriptsprachen-3aba144a3b8c4bbb9ea8e3d1539774f363b8dee4.zip | |
Add test for module setup
Diffstat (limited to 'Aufgabe6/RPN/lib')
| -rw-r--r-- | Aufgabe6/RPN/lib/RPN.pm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/Aufgabe6/RPN/lib/RPN.pm b/Aufgabe6/RPN/lib/RPN.pm index bcf1b38..92f6f50 100644 --- a/Aufgabe6/RPN/lib/RPN.pm +++ b/Aufgabe6/RPN/lib/RPN.pm @@ -1,6 +1,5 @@ package RPN; -use 5.022000; use strict; use warnings; @@ -15,21 +14,23 @@ our @ISA = qw(Exporter); # This allows declaration use RPN ':all'; # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. -our %EXPORT_TAGS = ( 'all' => [ qw( - -) ] ); +our %EXPORT_TAGS = ( 'all' => [ qw( rpn ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); -our @EXPORT = qw( - -); +our @EXPORT = qw( ); -our $VERSION = '0.01'; +our $VERSION = '1.0'; # Preloaded methods go here. +sub rpn { + my ( $par1 ) = @_; + print "Modul RPN Funktion 'rpn'\n"; + return $par1; +} + 1; __END__ # Below is stub documentation for your module. You'd better edit it! |