package Cogito;
# Copyright (c) David Greaves, 2005

use Exporter qw(import);
use Pod::Usage;

our @EXPORT=qw(error help ignore);  # subs exported by default


# Standard mechanism to raise an error.
sub error {
	print STDERR "git: ".join("\n",@_)."\n";
}

# Utility that extracts the perlpod from the caller's file
sub help
  {
    my (undef,$srcfilename) = caller;
    pod2usage(@_, -input=>$srcfilename);
  }

sub ignore
  {
    return 0;
  }
1;