Mac::CoreMIDI::Object - Encapsulates a CoreMIDI Object

package Mac::CoreMIDI::Object;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.03';

sub Dump {
    my ($self) = @_;
    (my $type = ref $self) =~ s/^Mac::CoreMIDI:://;
    my ($name, $manufacturer, $model, $uniqueID, $deviceID,
        $receiveCh, $transmitCh, $sysexspd, $schedule,
        $isembedded, $isbroadcast, $isrtent, $isoffline,
        $isprivate, $driverowner, $driverversion) = (
        $self->GetName() || '',
        $self->GetManufacturer() || '',
        $self->GetModel() || '',
        $self->GetUniqueID(),
        $self->GetDeviceID(),
        $self->GetReceiveChannels(),
        $self->GetTransmitChannels(),
        $self->GetMaxSysExSpeed(),
        $self->GetAdvanceScheduleTimeMuSec(),
        $self->IsEmbeddedEntity(),
        $self->IsBroadcast(),
        $self->IsSingleRealtimeEntity(),
        $self->IsOffline(),
        $self->IsPrivate(),
        $self->GetDriverOwner() || '',
        $self->GetDriverVersion(),
    );

    print <<EOT;
$type
    Name:                        $name
    Manufacturer:                $manufacturer
    Model:                       $model
    Unique ID:                   $uniqueID
    Device ID:                   $deviceID
    Receive channels:            $receiveCh
    Transmit channels:           $transmitCh
    Max. Sysex speed:            $sysexspd
    Schedule time:               $schedule
    Is embedded entity:          $isembedded
    Is broadcast:                $isbroadcast
    Is single real-time entity:  $isrtent
    Is offline:                  $isoffline
    Is private:                  $isprivate
    Driver owner:                $driverowner
    Driver version:              $driverversion

EOT
}

1;

__END__