ical glue trouble

Why does this work: <pre> tell application “iCal”

  tell last calendar

      make new event at end with properties {summary:"foo"}

    end tell

end tell </pre>

But not this: <pre> use Mac::Glue qw(:glue);

my $ical = new Mac::Glue “iCal”;

my $calendar = $ical->obj(calendar => gLast);
print $calendar->prop(“title”)->get, “\n\n”;

$calendar->make(
new => ‘event’,
at => location(‘end’),
with_properties => { summary => “foo” }
); </pre>

Written on May 29, 2004