From 3aba144a3b8c4bbb9ea8e3d1539774f363b8dee4 Mon Sep 17 00:00:00 2001 From: Stefan Suhren Date: Thu, 17 Dec 2015 17:47:28 +0100 Subject: Add test for module setup --- Aufgabe6/RPN/lib/RPN.pm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'Aufgabe6/RPN/lib/RPN.pm') 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! -- cgit v1.2.3-70-g09d2