File Coverage

blib/lib/Git/FastExport/Block.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	3	3	100.0
pod	1	1	100.0
total	26	26	100.0

package Git::FastExport::Block;
$Git::FastExport::Block::VERSION = '0.108';
use strict;
use warnings;

my $LF = "\012";

my %fields = (
    commit     => [qw( mark author committer data from merge files )],
    tag        => [qw( from tagger data )],
    reset      => [qw( from )],
    blob       => [qw( mark data )],
    checkpoint => [],
    progress   => [],
    feature    => [],
    option     => [],
    done       => [],
);

sub as_string {
    my ($self) = @_;
    my $string = $self->{header} . $LF;

    for my $key ( @{ $fields{ $self->{type} } } ) {
        next if !exists $self->{$key};
        if ( $key eq 'data' ) {
            $string
                .= 'data ' . length( $self->{data} ) . $LF . $self->{data};
        }
        else {
            $string .= "$_$LF" for @{ $self->{$key} };
        }
    }
    return $string .= $self->{footer} || '';
}

'progress 1 objects';

__END__