view release on metacpan or  search on metacpan

lib/Class/Maker/Examples/Soccer.pm  view on Meta::CPAN

				new Spiel::Mannschaft( name => $vereine[ rand(@vereine-1) ] ),
			],

			);

		$spiel->printout();

		#print $spiel->to_html( type => 'FILE', source => 'spiel.tmpl' );
	}

	my $formular = new Formular::Antrag::Anmeldung();

		# wir simulieren ein ausgefülltes formular

	$formular->antragsteller( new Mensch( name => 'Horst', email => 'horsttappert@web.de' ) );

		# Wir brauchen einen Waechter (Object::Bouncer) der:
		#	- die Formulare auf ihre Rightigkeit überprüft.
		#
		# )=> 'Sicherheit::Waechter::Anmeldung'

		# Beim Login:
		#	- den Schatzmeister fragt ob dieser User eintreten darf, wenn nicht
		#   ihn darauf hinweist zu zahlen.
		#

lib/Class/Maker/Examples/Soccer.pm  view on Meta::CPAN

		#	# 	a) Falls der Schatzmeister bestätigt dass der Mensch bezahlt hat.
		#	#		- Akzeptiert der Spielleiter den Menschen zum Mitglied
		#	#		- Schicken wir dem glücklichen Mitglied eine email
		#	#	b) Fall noch nicht bezahlt
		#	#		- Weisen wir Ihn darauf hin und lehnen ein einloggen des Menschen noch ab

	my $schatzmeister = new Schatzmeister( name => 'Dagobert' );

		# dummy Zahlung

	$schatzmeister->annehmen( $formular->antragsteller, 100, 'Eintritt' );

	if( $schatzmeister->hatbezahlt( $formular->antragsteller ) )
	{
			# Voila ...Antrag akzeptiert ! der "antragsteller" wird zum mitgleid

		my $mitglied = $spielleiter->akzeptiert( $formular->antragsteller );

		printfln "\nHallo Herr %s, ihr Mitgliedname lautet %s und Passwort lautet %s. Herzliche Grüsse %s",

			$mitglied->name, $mitglied->userid, $mitglied->passwd, $spielleiter->name;

				# Und nun loggt sich das Mitglied ein

			if( $mitglied->login( 'blubb' ) )
			{
				printfln "Login successfull for '%s'", $mitglied->userid;