| Mac-CoreMIDI documentation | Contained in the Mac-CoreMIDI distribution. |
Mac::CoreMIDI::Device - Encapsulates a CoreMIDI Device
my @ent = $self->GetEntities()Returns a list of all entities for this device.
my $n = $self->GetNumberOfEntities()Returns the number of entities.
my $dev = $self->GetEntity($i)Returns the $i'th entity (starting from 0).
Christian Renz, <crenz @ web42.com>
Copyright 2004-2005 Christian Renz, <crenz @ web42.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Mac-CoreMIDI documentation | Contained in the Mac-CoreMIDI distribution. |
package Mac::CoreMIDI::Device; use 5.006; use strict; use warnings; use base qw(Mac::CoreMIDI::Object); our $VERSION = '0.03'; sub GetEntities { my ($self) = @_; my $numEntities = $self->GetNumberOfEntities(); my @entities = map { $self->GetEntity($_) } 0..$numEntities-1; return @entities; } 1; __END__