App-bwk-mn

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::Pod" : "1.41",
            "Test::Pod::Coverage" : "1.08",
            "Test::Rinci" : "0.151"
         },
         "x_spec" : {
            "Rinci" : "v1.1.90"
         }
      },
      "runtime" : {
         "requires" : {
            "DateTime" : "0",
            "IPC::System::Options" : "0.331",
            "Log::ger" : "0.027",
            "Perinci::CmdLine::Any" : "0",
            "Perinci::CmdLineX::CommonOptions::SelfUpgrade" : "0",
            "Perinci::Sub::DepChecker" : "0",
            "perl" : "5.010001",
            "strict" : "0",
            "warnings" : "0"
         }
      },

META.yml  view on Meta::CPAN

configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.012, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-bwk-mn
requires:
  DateTime: '0'
  IPC::System::Options: '0.331'
  Log::ger: '0.027'
  Perinci::CmdLine::Any: '0'
  Perinci::CmdLineX::CommonOptions::SelfUpgrade: '0'
  Perinci::Sub::DepChecker: '0'
  perl: '5.010001'
  strict: '0'
  warnings: '0'
resources:
  bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=App-bwk-mn

Makefile.PL  view on Meta::CPAN

    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "App-bwk-mn",
  "EXE_FILES" => [
    "script/bwk-mn"
  ],
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.010001",
  "NAME" => "App::bwk::mn",
  "PREREQ_PM" => {
    "DateTime" => 0,
    "IPC::System::Options" => "0.331",
    "Log::ger" => "0.027",
    "Perinci::CmdLine::Any" => 0,
    "Perinci::CmdLineX::CommonOptions::SelfUpgrade" => 0,
    "Perinci::Sub::DepChecker" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "File::Spec" => 0,

Makefile.PL  view on Meta::CPAN

    "Test::More" => 0
  },
  "VERSION" => "0.001",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "DateTime" => 0,
  "File::Spec" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "IPC::System::Options" => "0.331",
  "Log::ger" => "0.027",
  "Perinci::CmdLine::Any" => 0,
  "Perinci::CmdLineX::CommonOptions::SelfUpgrade" => 0,
  "Perinci::Sub::DepChecker" => 0,
  "Test::More" => 0,
  "strict" => 0,

dist.ini  view on Meta::CPAN

[@Author::PERLANCAR]
:version=0.594

[Prereqs / TestRequires]

[Prereqs]
perl=5.010001
strict=0
warnings=0
DateTime=0
IPC::System::Options=0.331
Log::ger=0.027
Perinci::CmdLine::Any=0
Perinci::CmdLineX::CommonOptions::SelfUpgrade=0

[Prereqs / DevelopX_spec]
-phase=develop
-relationship=x_spec
Rinci=1.1.90

lib/App/bwk/mn.pm  view on Meta::CPAN

    },
    deps => {
        all => [
            {prog => 'systemctl'},
            {prog => 'bulwark-cli'},
            {prog => 'zfs'},
        ],
    },
};
sub new_zfs_snapshot {
    require DateTime;

    my %args = @_;

    my $res = _newest_bulwark_zfs_snapshots();
    return $res unless $res->[0] == 200;
    my $snapshots = $res->[3]{'func.all_snapshots'};
    my $s = $res->[3]{'func.raw'};

    my $today = DateTime->now->ymd;
    my $new_snapshot;
    my $i = 0;
    while (1) {
        $new_snapshot = sprintf(
            "%s/%s\@%s%s",
            $s->{pool}, $s->{fs},
            $today,
            $i++ ? sprintf("_%03d", $i) : "",
        );
        last unless $snapshots->{$new_snapshot};