[MacPerl-Modules] glue syntax input wanted

[Chris Nandor <pudge@pobox.com>]

How do you like this?

  #!perl -wl
  use Mac::Glue ':glue';
  my $f = new Mac::Glue 'Finder';
  my @windows = $f->get(
    $f->prop(name => window => whose(name => contains => 'e')));

  print join "\n", @windows;

I am thinking of putting them together in complex structures like so:

  whose([name => contains => 'e'] glueAnd [popup => equals => enum('true')])

And:

  whose(
    [[name => contains => 'e'] glueAnd [popup => equals => enum('true')]]
      glueNot [pulled_open => equals => enum('true')]
  );

Of course, this example could better be expressed with simply:

  whose([name => contains => 'e'] glueAnd [popup => equals => enum('false')])

But I am using the other for the sake of example.

Thoughts?

--
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-modules-request@macperl.org