The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use lib './lib';

use strict;
use warnings;

use Error qw(:try);
use Pipeline::Base;
use Test::More tests => 2;

package Subclass;

use base qw( Pipeline::Base );

sub init {
  return undef;
}

1;
package main;

ok( my $obj = Pipeline::Base->new(), "constructed a new pipeline base object" );
try {
  Subclass->new();
} catch Pipeline::Error::Construction with {
  ok( 1, "threw an error" );
};

1;