# Huba.pm, ein Test-Modul
package Huba;                     # muss heissen wie die Datei
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);          # legt die Basisklasse fest
                                  # 'our', damit die Symbole global sind
our @EXPORT = qw(talk kidstalk);  # Standard-Export

our @EXPORT_OK = qw(cry);         # optional gibt's auch das noch

our %EXPORT_TAGS = (              # use Huba qw(:T1) importiert 
    T1 => [qw(talk kidstalk)],    # talk und kidstalk
    T2 => [qw(talk cry)]          # use Huba qw (:T2) importiert 
    );                            # nur talk und cry

# ein paar sinnfreie Funktionen:
sub talk
  {
  print "Huba, huba!\n";
  }

sub cry
  {
  print "HUBA, HUBA!\n";
  }

sub kidstalk
  {
  print "Bi, bi, bi, bi!\n";
  }

# Ein Modul muss einen wahren Wert zurueckgeben
return 1;