view release on metacpan or  search on metacpan

data/vrt/VeryShortStories.vrt  view on Meta::CPAN

deep	JJ	deep
breath	NN	breath
,	,	,
summon	VB	summon
up	RB	up
all	PDT	all
your	PP$	your
courage	NN	courage
,	,	,
and	CC	and
throw	VB	throw
yourself	PP	yourself
at	IN	at
the	DT	the
water	NN	water
,	,	,
head	VBP	head
first	JJ	first
.	SENT	.
</s>
<s>

lib/CWB/CQP.pm  view on Meta::CPAN

  return ($self->status eq 'ok'); # convenient wrapper function to check for CQP errors
}

sub error_message {
  my $self = shift;
  my $aref = $self->{'error_message'};

  return @{$aref};
}

## throw CQP error (optionally through user-defined error handler)
sub error {
  my $self = shift;

  if (ref $self->{'error_handler'} eq 'CODE') {
    $self->{'error_handler'}->(@_); # call error handler if a suitable subref has been installed
  }
  else {
    warn "\n", "=+===CWB::CQP ERROR=====\n", # default behaviour is to issue a warning on stderr
      (map {" | $_\n"} @_), "=+======================\n"; 
  }