File Coverage

blib/lib/Net/DBus/Skype/API.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package Net::DBus::Skype::API;
use strict;
use warnings;
use parent qw/Net::DBus::Object/;
use 5.008001;
use Carp ();
use Net::DBus;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my %args = @_ == 1 ? %{$_[0]} : @_;

    my $name = $args{name}
        || __PACKAGE__ . '/' . $Net::DBus::Skype::API::VERSION;

    my $bus = Net::DBus->session;
    my $service = $bus->export_service('com.Skype.API');
    my $self = $class->SUPER::new($service, '/com/Skype/Client');
    $self->{name}     = $name;
    $self->{protocol} = $args{protocol} || 8;
    $self->{notify}   = $args{notify} || sub {};

    Carp::croak("Skype is not running.") unless $self->is_running;

    $self;
}

sub attach {
    my $self = shift;

    my $bus = Net::DBus->session;
    my $service = $bus->get_service('com.Skype.API');
    my $object = $service->get_object('/com/Skype');
    $self->{out} = $object;

    $self->send_command("NAME $self->{name}");
    $self->send_command("PROTOCOL $self->{protocol}");
}

sub is_running {
    my $self = shift;
    eval {
        my $bus = Net::DBus->session;
        $bus->get_service('com.Skype.API')->get_object('/com/Skype');
    };
    return 0 if $@;
    return 1;
}

sub send_command {
    my ($self, $command) = @_;
    unless ($self->{out}) {
        $self->attach;
    }
    $self->{out}->Invoke($command);
}

sub Notify {
    my ($self, $notification) = @_;
    $self->{notify}->($notification);
}

1;
__END__