File Coverage

blib/lib/Articulate/TestEnv.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	9	9	100.0
pod	0	2	0.0
total	44	49	89.8

package Articulate::TestEnv;
use strict;
use FindBin;
use YAML;
use Articulate;
use FindBin;
use Exporter::Declare;
default_exports qw( app_from_config app_from_data );

sub app_from_config {
  my $fn = shift // "$FindBin::Bin/environments/testing.yml";
  $fn =~ s/(?
  $fn =~ "$FindBin::Bin/environments/$fn" unless -e $fn;
  open my $fh, '<:encoding(utf8)', $fn;
  my $yaml;
  while ( defined( my $line = <$fh> ) ) { $yaml .= $line }
  my $data = YAML::Load $yaml;
  return app_from_data( $data->{plugins}->{Articulate} );
}

sub app_from_data {
  my $app = Articulate->new(shift);
  $app->components->{'storage'}->empty_all_content;
  return $app;
}

1;