File Coverage

blib/lib/Test/BDD/Cucumber/Model/Document.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	27	27	100.0

use v5.14;
use warnings;

package Test::BDD::Cucumber::Model::Document 0.85;

use Moo;
use Types::Standard qw( Str ArrayRef InstanceOf );
use Test::BDD::Cucumber::Model::Line;

=head1 NAME

Test::BDD::Cucumber::Model::Document - Model to represent a feature file on disk or in memory

=head1 VERSION

version 0.85

=head1 DESCRIPTION

Model to represent a feature file on disk or in memory

=head1 ATTRIBUTES

=head2 filename

The filename from which the document was loaded.

=cut

has 'filename' => ( is => 'ro', isa => Str );

=head2 content

The file contents, as a string

=cut

has 'content' => ( is => 'ro', isa => Str );

=head2 lines

The file contents, as an arrayref of L
objects

=cut

has 'lines' => (
    is      => 'rw',
    default => sub { [] },
    isa     => ArrayRef[InstanceOf['Test::BDD::Cucumber::Model::Line']]
);

=head1 OTHER

=head2 BUILD

The instantiation populates C by splitting the input on newlines.

=cut

# Create lines
sub BUILD {
    my $self = shift;

    # Reset any content that was in lines
    my $counter = 0;

    for my $line ( split( /\n/, $self->content ) ) {
        my $obj = Test::BDD::Cucumber::Model::Line->new(
            {
                number      => ++$counter,
                document    => $self,
                raw_content => $line
            }
        );
        push( @{ $self->lines }, $obj );
    }
}

=head1 AUTHOR

Peter Sergeant C

=head1 LICENSE

  Copyright 2019-2023, Erik Huelsmann
  Copyright 2011-2019, Peter Sergeant; Licensed under the same terms as Perl

=cut

1;