use TAPx::Parser::Source::Perl;
  my $source = TAPx::Parser::Source::Perl->new;
  my $file   = 't/00-load.t';
  my $stream = $source->filename($file)->get_stream;
  while ( defined( my $line = $stream->next ) ) {
      print "$line\n";
  }