package Mac::AppleScript; require 5.005_62; use strict; use warnings; require Exporter; require DynaLoader; use AutoLoader qw(AUTOLOAD); our @ISA = qw(Exporter DynaLoader); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. # Do not simply export all your public functions/methods/constants. # This allows declaration use Mac::AppleScript ':all'; # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. our %EXPORT_TAGS = ( 'all' => [ qw( &RunAppleScript ) ] ); our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); our @EXPORT = qw( ); our $VERSION = '0.04'; bootstrap Mac::AppleScript $VERSION; # Preloaded methods go here. # Autoload methods go after =cut, and are processed by the autosplit program. 1; __END__ =head1 NAME Mac::AppleScript - Perl extension to execute applescript commands on OS X =head1 SYNOPSIS use Mac::AppleScript qw(RunAppleScript); RunAppleScript(qq(tell application "Finder"\nactivate\nend tell)) or die "Didn't work!"; =head1 DESCRIPTION Simple interface to the OSA scripting stuff. Returns undef on error and sets $@ to the error code. Codes are listed in the AppleScript documentation. On successful completion, this returns the output of the AppleScript command. For empty returns, like with the sample script in the SYNOPSIS, AppleScript appears to return the string "{}" ( That's an open and close squiggle bracket, without the quotes) =head2 EXPORT None by default. =head1 AUTHOR Dan Sugalski, Chunks of the code came from Apple Tech Notes, though that'll be cleaned out soon. =head1 SEE ALSO perl(1). =cut