package lib::DiffPicker ;

use strict ;
use warnings ;

@lib::DiffPicker::ISA = qw(SVN::Notify) ;

use Symbol () ;

sub diff
  { my ( $self, $fh ) = @_ ;
    my $filter = Symbol::gensym ;
    tie *{ $filter }, 'PickDiff', $fh ;
    $filter ;
  }

1 ;