view release on metacpan or  search on metacpan

lib/Liveman/Project.pm  view on Meta::CPAN

use Liveman::Append;

# Конструктор
sub new {
    my $cls = shift;
    my $self = bless {@_}, $cls;
    $self->{license} //= 'perl_5';
    $self
}

sub _replace(&$) {
    my ($sub, $file) = @_;
    local $_ = read_text $file;
    $sub->();
    write_text $file, $_;
}

# Создаёт новый проект
sub make {
    my ($self) = @_;
    my $pkg = $self->{pkg};