#!perl
use strict;
use warnings;

package App::Addex::Output::Callback;
use App::Addex::Output;
BEGIN { our @ISA = 'App::Addex::Output' }

sub new {
  my ($self, $arg) = @_;

  bless $arg->{callback} => $self;
}

sub process_entry { $_[0]->(@_); } 

1;