File Coverage

blib/lib/Parse/PEM/Lax.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	33	33	100.0

package Parse::PEM::Lax;

use 5.010000;
use strict;
use warnings;
use base qw(Exporter);

our $VERSION = '0.01';

our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
);

sub from_string {
  my ($class, $data) = @_;
  my $self = bless { sections => [] }, $class;

  my $pem_section = qr#(
    (-{5}BEGIN\s+([^\n]*?)-{5})
    ([^-]*)
    (-{5}END\s+([^\n]*?)-{5})
  )#x;

  while ($data =~ /$pem_section/g) {
    my ($block, $head, $label1, $body, $tail, $label2) =
      ($1, $2, $3, $4, $5, $6);
    $body =~ s/\s+//g;
    $body =~ s/(.{0,76})/$1\n/g;
    $body =~ s/\s+$//;
    push @{ $self->{sections} },
      sprintf "%s\n%s\n%s\n", $head, $body, $tail;
  }

  return $self;
}

sub extract_sections {
  my ($self) = @_;
  return @{ $self->{sections} };
}

1;

__END__