[Perl] Cocoa (pl pm sample)

Perl_Cocoa.zip

Cocoa.pl

package MixPerl::Cocoa;

=for interface

    [interface: pure]

    public static Cocoa Cocoa();

    public static string Drink();

=cut

    

require Cocoa;

Cocoa.pm

package Cocoa;

use strict;

sub new {

  my $class = shift;

  my $self = bless {}, $class;

  return $self;

}

sub Drink {

  my $line = "Drink Cocoa";

  return $line;

}

1;

testCocoa.pl

#!/usr/bin/perl -w

use strict;

push (@INC, 'pwd');

use Cocoa;

my $cup = new Cocoa;

print $cup->Drink;