package MacPerl;

require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(
    kMacPerlNeverQuit
    kMacPerlQuitIfRuntime
    kMacPerlAlwaysQuit
    kMacPerlQuitIfFirstScript
);
	
bootstrap MacPerl;

sub kMacPerlNeverQuit		{ 0; }
sub kMacPerlQuitIfRuntime	{ 1; }
sub kMacPerlAlwaysQuit 		{ 2; }
sub kMacPerlQuitIfFirstScript	{ 3; }

1;

__END__

=cut

=head1 NAME

MacPerl - Built-in Macintosh specific routines.

=head1 SYNOPSIS

    $phone = MacPerl::Ask("Enter your phone number:");
    MacPerl::Answer("Nunc et in hora mortis nostrae", "Amen");
    $color = MacPerl::Pick("What's your favorite color baby ?", "Red", "Green", "Gold");

    MacPerl::SetFileInfo("MPS ", "TEXT", yin, yang);
    MacPerl::GetFileInfo(yin);
    
    MacPerl::Quit(kMacPerlAlwaysQuit);

=head1 SEE ALSO

L<macperl>

=cut