#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
package Rex::File::Parser::Data;
use v5.12.5;
use warnings;
our $VERSION = '1.16.0'; # VERSION
sub new {
  my $that  = shift;
  my $proto = ref($that) || $that;
  my $self  = {@_};
  bless( $self, $proto );
  return $self;
}
sub read {
  my ( $self, $file ) = @_;
  return $self->_read_file($file);
}
sub _read_file {
  my ( $self, $file ) = @_;
  my $content = "";
  my $in_file = 0;
  for my $line ( @{ $self->{"data"} } ) {
    chomp $line;
    if ( $line eq "\@end" ) {
      $in_file = 0;
      next;
    }
    if ($in_file) {
      $content .= $line . $/;
    }
    if ( $line eq "\@$file" ) {
      $in_file = 1;
      next;
    }
  }
  return $content;
}
sub get {
  my ( $self, $file ) = @_;
}
1;