view release on metacpan or  search on metacpan

lib/App/StaticImageGallery/Style/Source/FromPackage.pm  view on Meta::CPAN

}

sub write_style_files {
    my ($self ) = @_;
    if ( $self->style_class->can('files') ){
        my @files = $self->style_class->files();
        foreach my $file ( @files ){
            my $filename = join '/',$self->data_dir,$file->{filename};
            $self->msg_verbose(2,"Write file %s",$filename);
            open(my $fh,'>', $filename) or die "Can't write $filename: $!\n";
            CORE::binmode($fh);
            if ( defined $file->{base64} ){
                print $fh MIME::Base64::decode_base64($file->{base64});
            }elsif ( defined $file->{content}){
                print $fh $file->{content};
            }
            close $fh;
        }
    }
}