File Coverage

blib/lib/WebService/SyncSBS/D2H.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package WebService::SyncSBS::D2H;

use strict;
require Exporter;

our @ISA = qw(Exporter);
our $VERSION = '0.03';

use WebService::SyncSBS::Delicious;
use WebService::SyncSBS::Hatena;


sub new {
    my $class = shift;
    my $args  = shift;

    $args->{delicious_recent_num} = 20 unless $args->{delicious_recent_num} =~ /^\d+$/;
    $args->{delicious_recent_num} = 20 if $args->{delicious_recent_num} > 100;

    my $self = bless {
	delicious => WebService::SyncSBS::Delicious->new({
	    user => $args->{delicious_user},
	    pass => $args->{delicious_pass},
	    recent_num => $args->{delicious_recent_num},
							 }),
	hatena    => WebService::SyncSBS::Hatena->new({
	    user => $args->{hatena_user},
	    pass => $args->{hatena_pass},
	}),
    }, $class;

    return $self;
}

sub sync {
    my $self = shift;

    my $delicious = $self->{delicious}->get_recent;
    my $hatena = $self->{hatena}->get_recent;

    #del.icio.us to hatena
    foreach (keys %$delicious) {
	unless ($hatena->{$_}->{url}) {
	    $self->{hatena}->add($delicious->{$_});
	}
    }

    #hatena to del.icio.us
    foreach (keys %$hatena) {
	unless ($delicious->{$_}->{url}) {
	    $self->{delicious}->add($hatena->{$_});
	}
    }
}

sub add {
}

sub delete {
    my $self = shift;
    my $url  = shift;

    $self->{delicious}->delete($url);
    $self->{hatena}->delete($url);
}

1;
__END__