#!/usr/bin/perl
use strict;
use warnings;
use PersonenDB;

# Für Tastausgaben
use Data::Dumper;

my $db = PersonenDB->new('test.dat');

#print Dumper($db); exit();

$db->add({
    vorname        => 'Test',
    nachname       => 'Tester',
    address        => 'TestStr 1',
    website        => 'www.test.de/test2',
    email          => 'mail@test.de',
    dienstzeit     => 100,
    dienstgrad     => '1',
    dienststellung => '1965.1.12',
    einheit        => 'rable',
    nummer         => 837,
    typ            => 4,
    person         => 'das ist nur ein test!',
  }) || print "ERROR:".$db->error()."\n";

$db->add({
    vorname        => 'Toto',
    nachname       => 'Testerito',
    address        => 'TestStr 22',
    website        => 'www.test.de/test1',
    email          => 'mail1@test.de',
    dienstzeit     => 100,
    dienstgrad     => '2',
    dienststellung => '1965.1.12',
    einheit        => 'blub',
    nummer         => 837,
    typ            => 2,
    person         => 'das ist nur ein test!',
  }) || print "ERROR:".$db->error()."\n";

$db->add({
    vorname        => 'Tranta',
    nachname       => 'Tester',
    address        => 'TestStr 1',
    website        => 'www.test.de/test3',
    email          => 'mail2@test.de',
    dienstzeit     => 100,
    dienstgrad     => '3',
    dienststellung => '1923',
    einheit        => 'bla',
    nummer         => 11234,
    typ            => 1,
    person         => 'das ist nur ein test!',
  }) || print "ERROR:".$db->error()."\n";

$db->add({
    vorname        => 'Karl',
    nachname       => 'Boratis',
    address        => "Rabenweg 19293\n12345 Braurig",
    website        => 'www.test.de/test3',
    email          => 'mail3@test.de',
    dienstzeit     => 100,
    dienstgrad     => '4',
    dienststellung => "2.11.1968",
    einheit        => 'bla',
    nummer         => 4,
    typ            => 4,
    person         => 'das ist nur ein test!',
  }) || print "ERROR:".$db->error()."\n";

$db->add({
    vorname        => 'Henry',
    nachname       => 'Boratis',
    address        => "Rabenweg 19293\n12345 Braurig",
    website        => 'www.test.de/test4',
    email          => 'xxx???&test.??',
    dienstzeit     => 100,
    dienstgrad     => '4',
    einheit        => 'luba',
    nummer         => 55,
    typ            => 3,
    person         => 'das ist nur ein test!',
  }) || print "ERROR:".$db->error()."\n";


print Dumper([$db->all()]);