File Coverage

blib/lib/Darcs/Notify.pm

Criterion	Covered	Total	%
statement	24	53	45.2
branch	0	14	0.0
condition	0	8	0.0
subroutine	8	10	80.0
pod	2	2	100.0
total	34	87	39.0

#!/usr/bin/perl
# Copyright (c) 2007-2009 David Caldwell,  All Rights Reserved. -*- perl -*-

package Darcs::Notify; use base qw(Class::Accessor::Fast); use strict; use warnings;
our $VERSION = '2.0.1';

Darcs::Notify->mk_accessors(qw(repo repo_name));

use Darcs::Inventory;
use Darcs::Inventory::Diff;
use Cwd;
use File::Basename;
use File::Copy "cp";

sub new($%) {
    my ($class, %option) = @_;
    my $self = bless { repo => $option{repo} || '.' }, $class;
    $self->{repo_name} ||= basename $self->{repo} eq '.' ? cwd : $self->{repo};

    # Remove the options we used from our options hash. What's left should only be notifiers.
    delete $option{$_} for keys %$self;
    for (keys %option) {
        my $class = "Darcs::Notify::$_";
        $class->isa('Darcs::Notify::Base') or eval "use $class; 1" or die "Couldn't load $_ ($class): $!\n";
        push @{$self->{notifier}}, $class->new(%{$option{$_}});
    }
    die "No notifiers passed to $class->new()! Please read the perldoc Darcs::Notify.\n" unless scalar @{$self->{notifier}};
    $self;
}

sub notify($){
    my ($self) = @_;
    mkdir "$self->{repo}/_darcs/third-party";
    mkdir "$self->{repo}/_darcs/third-party/darcs-notify";

    # This path is only here for legacy repos.
    my $old_inventory = "$self->{repo}/_darcs/third-party/darcs-notify-old-inventory";
    # http://www.mail-archive.com/[e-mail]/msg01347.html
    $old_inventory = "$self->{repo}/_darcs/third-party/darcs-notify/old-inventory" unless -f $old_inventory;

    my $pre  = Darcs::Inventory->load($old_inventory);
    my $post = Darcs::Inventory->new($self->{repo}) or die "Couldn't get inventory from $self->{repo}";

    my ($new, $unpull) = Darcs::Inventory::Diff::diff($pre, $post);

    cp($post->file, $old_inventory);
    if (!$pre) {
        warn "Not sending any patch notifications on first run.\n".
            "'echo > \"$old_inventory\"' and re-run darcs-notify if you want notifications for your current ".
            scalar $post->patches, " patches.\n";
        return;
    }

    for (@{$self->{notifier}}) {
        $_->notify($self, $new, $unpull);
    }
    scalar @$new || scalar @$unpull;
}

1;
__END__