#!/usr/bin/perl -w
use strict;
use warnings;
=cut
This implements the following AppleScript code:
tell application "InDesign 2.0.1"
set myDoc to make document
tell myDoc
tell spread 1 to make text frame
tell text frame 1 of spread 1
set geometric bounds to {0, 0, 3, 3}
set contents to name of first font
end tell
end tell
end tell
=cut
use Mac::AppleScript::Glue;
;;$Mac::AppleScript::Glue::Debug{SCRIPT} = 1;
;;$Mac::AppleScript::Glue::Debug{RESULT} = 1;
my $indesign = new Mac::AppleScript::Glue::Application('InDesign 2.0.1');
# AppleScript:
# set myDoc to make document
my $doc = $indesign->make_document
or die "can't make new document\n";
# AppleScript:
# tell spread 1 to make text frame
my $text_frame = $doc->spread(1)->make_text_frame
or die "can't get text frame\n";
# AppleScript:
# tell text frame 1 of spread 1
# set geometric bounds to {0, 0, 3, 3}
# set contents to name of first font
# end tell
$text_frame->set(
geometric_bounds => [0,0,3,3],
contents => $indesign->fonts->[0]->name,
);