Mac::AppleScript::Glue::Object - represents an AppleScript object reference

    use Mac::AppleScript::Glue::Object;

    my $obj = new Mac::AppleScript::Glue::Object(
        ref => 'folder "Applications"',
        app => $my_app,
    );

package Mac::AppleScript::Glue::Object;

use strict;
use warnings;

######################################################################

use Carp;

use Mac::AppleScript::Glue qw(to_string);

use base qw(Mac::AppleScript::Glue);

######################################################################
# methods

######################################################################

sub _init {
    my ($self, $args) = @_;

    $self->{_app} = undef;
    $self->{_ref} = undef;

    return $self->SUPER::_init($args);
}

######################################################################

# implemented via $AUTOLOAD

######################################################################

# implemented via $AUTOLOAD

######################################################################

#
# Called by the AUTOLOADer in Mac::AppleScript::Glue when the
# specified method isn't known.
#
# Usage: $obj->_unknown_method('method' [, $arg] 
#                                       [, param1 => val1, param2 => val2]);
#

sub _unknown_method {
    my ($self, $method, @args) = @_;

    my $expr;

    #
    # implicit "get" on any method
    #

##    $expr .= 'get ';

    #
    # we start out with the method, with spaces converted to
    # underscores
    #

    $method =~ s/_/ /g;

    $expr .= $method;

    #
    # if there's only one argument, or there's an odd number (meaning
    # one argument and a hash), then we add on the argument to the
    # expression
    #

    if (@args == 1 || @args % 2 != 0) {
        $expr .= ' ' . to_string(shift @args);
    }

    #
    # we add the reference (this isn't always the right way to do it)
    #
    # an alternate way (which doesn't quite work either) is to
    # enclosed the entire expression in a "tell" block:
    #
    # $expr = 'tell ' . $self->ref . "\n" 
    #     . "$expr\n" 
    #     . "end tell";
    #

;;if ($self->ref !~ /^application "/) {
    $expr .= ' of (' . $self->ref . ')';
;;}

    #
    # if there are parameters, we add each parameter
    #

    if (@args) {
        my %args = @args;

        while (my ($name, $value) = each %args) {
            $name =~ s/_/ /g;

            $expr .= " $name " . to_string($value);
        }
    }

    #
    # finally, we run the expression, either using the application
    # specified in the object, or the object itself
    #

    my $app = $self->app || $self;

    return $app->run($expr);
}

######################################################################

sub set {
    my ($self, %args) = @_;

    my $app = $self->app || $self;

    my $r;

    while (my ($method, $value) = each %args) {
        $method =~ s/_/ /g;

        $r = $app->run(
            "set $method of (" 
            . $self->ref 
            . ') to ' 
            . to_string($value)
        );
    }

    return $r;
}

######################################################################

1;