| Subject: | Error in tutorial Net::DBus::Tutorial::ExportingObjects |
I'm newbie in D-Bus and Net::DBus but I think there is an error in code example in section "Creating an object" (https://metacpan.org/pod/distribution/Net-DBus/lib/Net/DBus/Tutorial/ExportingObjects.pod#CREATING-AN-OBJECT):
package Music::Player::Manager;
use base qw(Net::DBus);
sub new {
my $class = shift;
my $service = shift;
my $self = $class->SUPER::new($service, "/music/player/manager");
bless $self, $class;
return $self;
}
You've wrote that Music::Player::Manager class inherits Net::DBus::Object. If so, then "use base qw(Net::DBus)" should be changed to "use base qw(Net::DBus::Object)".
Sorry, if I'm wrong.