view release on metacpan or  search on metacpan

GAPI.html  view on Meta::CPAN

<p>Which will then allow you to do this:</p>
<pre>
        my $pet = Guppy-&gt;new()      ; 
        my $SwimTowardstheLight = $pet-&gt;CGI-&gt;param(&quot;fishhook&quot;) ; # Extract CGI parameter &quot;fishhook&quot; 
 
Class::GAPI will always use the right-most namespace fragment as the option in the option =&gt; value pair. (This may 
cause a namespace conflict from time to time, in those cases just use the third stage _init instead.) So for example:</pre>
<pre>
        package SpyGuppy           ; 
        use Crypt::CBC             ; # block handler
        use Crypt::DES             ; # Encryption Algorythm. 
        use Class::GAPI            ; 
        our @ISA = qw(Class::GAPI) ;  
        our @Children = qw(Crypt::CBC Crypt::DES) ;
        1 ;</pre>
<p>and then do:</p>
<pre>
        my $pet = SpyGuppy-&gt;new()       ; 
        $pet-&gt;CBC-&gt;something()          ;
        $pet-&gt;DES-&gt;somethingelse()      ;</pre>
<p>@Children also conveiniently has 2 special class names. Class::GAPI::Foo, and Class::List::Foo. In 
this case ``Foo'' can be anything you like, and will correspondingly be used to create a 
sprout()ed object. Note that Class::GAPI::Foo is a a sprouted hash, while Class::List::Foo 
is a sprouted array. This is very convenient for making lists of objects. The technique below can be used 

README  view on Meta::CPAN

Which will then allow you to do this: 

	my $pet = Guppy->new()      ; 
	my $SwimTowardstheLight = $pet->CGI->param("fishhook") ; # Extract CGI parameter "fishhook" 
 
Class::GAPI will always use the right-most namespace fragment as the option in the option => value pair. (This may 
cause a namespace conflict from time to time, in those cases just use the third stage _init instead.) So for example: 

	package SpyGuppy	   ; 
	use Crypt::CBC             ; # block handler
	use Crypt::DES             ; # Encryption Algorythm. 
	use Class::GAPI            ; 
	our @ISA = qw(Class::GAPI) ;  
	our @Children = qw(Crypt::CBC Crypt::DES) ;
	1 ;

and then do: 

	my $pet = SpyGuppy->new()	; 
	$pet->CBC->something()		;
	$pet->DES->somethingelse()	; 

@Children also conveiniently has 2 special class names. Class::GAPI::Foo, and Class::List::Foo. In 
this case "Foo" can be anything you like, and will correspondingly be used to create a 

lib/Class/GAPI.pm  view on Meta::CPAN

Which will then allow you to do this: 

	my $pet = Guppy->new()      ; 
	my $SwimTowardstheLight = $pet->CGI->param("fishhook") ; # Extract CGI parameter "fishhook" 
 
Class::GAPI will always use the right-most namespace fragment as the option in the option => value pair. (This may 
cause a namespace conflict from time to time, in those cases just use the third stage _init instead.) So for example: 

	package SpyGuppy	   ; 
	use Crypt::CBC             ; # block handler
	use Crypt::DES             ; # Encryption Algorythm. 
	use Class::GAPI            ; 
	our @ISA = qw(Class::GAPI) ;  
	our @Children = qw(Crypt::CBC Crypt::DES) ;
	1 ;

and then do: 

	my $pet = SpyGuppy->new()	; 
	$pet->CBC->something()		;
	$pet->DES->somethingelse()	; 

@Children also conveiniently has 2 special class names. Class::GAPI::Foo, and Class::List::Foo. In 
this case "Foo" can be anything you like, and will correspondingly be used to create a