home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / MacPerl.pm < prev    next >
Encoding:
Perl POD Document  |  1998-04-04  |  1.1 KB  |  69 lines  |  [TEXT/McPL]
  1. package MacPerl;
  2.  
  3. require Exporter;
  4.  
  5. @ISA = qw(Exporter);
  6. @EXPORT = qw(
  7.     kMacPerlNeverQuit
  8.     kMacPerlQuitIfRuntime
  9.     kMacPerlAlwaysQuit
  10.     kMacPerlQuitIfFirstScript
  11. );
  12. @EXPORT_OK = qw(
  13.     SetFileInfo
  14.     GetFileInfo
  15.     Ask
  16.     Answer
  17.     Choose
  18.     Pick
  19.     Quit
  20.     FAccess
  21.     MakeFSSpec
  22.     MakePath
  23.     Volumes
  24.     Version
  25.     Architecture
  26.     
  27.     Reply
  28.     DoAppleScript
  29.     
  30.     LoadExternals
  31. );
  32.     
  33. # bootstrap MacPerl is already implicitly done by your MacPerl binary
  34.  
  35. sub kMacPerlNeverQuit ()        { 0; }
  36. sub kMacPerlQuitIfRuntime ()    { 1; }
  37. sub kMacPerlAlwaysQuit ()       { 2; }
  38. sub kMacPerlQuitIfFirstScript (){ 3; }
  39.  
  40. 1;
  41.  
  42. __END__
  43.  
  44. =cut
  45.  
  46. =head1 NAME
  47.  
  48. MacPerl - Built-in Macintosh specific routines.
  49.  
  50. =head1 SYNOPSIS
  51.  
  52.     $phone = MacPerl::Ask("Enter your phone number:");
  53.     MacPerl::Answer("Nunc et in hora mortis nostrae", "Amen");
  54.     $color = MacPerl::Pick("What's your favorite color baby ?", "Red", "Green", "Gold");
  55.  
  56.     MacPerl::SetFileInfo("MPS ", "TEXT", yin, yang);
  57.     MacPerl::GetFileInfo(yin);
  58.     
  59.     MacPerl::Quit(kMacPerlAlwaysQuit);
  60.  
  61. =head1 SEE ALSO
  62.  
  63. L<macperl>
  64.  
  65. =cut
  66.  
  67.  
  68.     
  69.