view release on metacpan or  search on metacpan

lib/Net/DBus/Skype.pm  view on Meta::CPAN

	my $skype = $self->$sub;
	$self->skype( $skype );
	$self->_init_skype;
	$skype;
};

sub _build_skype {
	my $self = shift;
	
	my $objects = $self->dbus
		->get_service("org.freedesktop.DBus")
		->get_object("/org/freedesktop/DBus")
	;

	my $skype_found = grep $_ eq 'com.Skype.API', @{$objects->ListNames};
	die 'No running API-capable Skype found'
		unless $skype_found
	;
	
	my $skype = $self->dbus
		->get_service('com.Skype.API')
		->get_object('/com/Skype', 'com.Skype.API')