view release on metacpan or  search on metacpan

lib/Data/Section/Writer.pm  view on Meta::CPAN

66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
  my $files = $self->_files;
  return "__DATA__\n" unless %$files;
  return join("\n",
    "__DATA__",
    (map { $self->_render_file($_, $files->{$_}) } sort keys $files->%*),
    ''
  );
}
 
 
sub update_file ($self) {
  my $perl;
  my $orig;
 
  if(-f $self->perl_filename) {
    $orig = $perl = $self->perl_filename->slurp_utf8;
 
    if($perl =~ /^__DATA__/) {
      $perl = '';
    } else {
      # read the file in, removing __DATA__ and everything after that