Acme-ProgressBar

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
   "config" : {
      "Dist::Zilla::Plugin::Git::Check" : {
         "untracked_files" : "die"
      },
      "Dist::Zilla::Role::Git::DirtyFiles" : {
         "allow_dirty" : [
            "Changes",
            "dist.ini"
         ],
         "allow_dirty_match" : [],
         "changelog" : "Changes"
      },
      "Dist::Zilla::Role::Git::Repo" : {
         "git_version" : "2.38.0",
         "repo_root" : "."
      }
   },
   "name" : "@RJBS/@Git/Check",
   "version" : "2.048"
},
{

META.json  view on Meta::CPAN

422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
         "add_files_in" : [],
         "commit_msg" : "v%V%n%n%c",
         "signoff" : 0
      },
      "Dist::Zilla::Role::Git::DirtyFiles" : {
         "allow_dirty" : [
            "Changes",
            "dist.ini"
         ],
         "allow_dirty_match" : [],
         "changelog" : "Changes"
      },
      "Dist::Zilla::Role::Git::Repo" : {
         "git_version" : "2.38.0",
         "repo_root" : "."
      },
      "Dist::Zilla::Role::Git::StringFormatter" : {
         "time_zone" : "local"
      }
   },
   "name" : "@RJBS/@Git/Commit",
   "version" : "2.048"
},
{
   "class" : "Dist::Zilla::Plugin::Git::Tag",
   "config" : {
      "Dist::Zilla::Plugin::Git::Tag" : {
         "branch" : null,
         "changelog" : "Changes",
         "signed" : 0,
         "tag" : "1.130",
         "tag_format" : "%v",
         "tag_message" : "v%V"
      },
      "Dist::Zilla::Role::Git::Repo" : {
         "git_version" : "2.38.0",
         "repo_root" : "."
      },
      "Dist::Zilla::Role::Git::StringFormatter" : {

META.yml  view on Meta::CPAN

290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
-
  class: Dist::Zilla::Plugin::Git::Check
  config:
    Dist::Zilla::Plugin::Git::Check:
      untracked_files: die
    Dist::Zilla::Role::Git::DirtyFiles:
      allow_dirty:
        - Changes
        - dist.ini
      allow_dirty_match: []
      changelog: Changes
    Dist::Zilla::Role::Git::Repo:
      git_version: 2.38.0
      repo_root: .
  name: '@RJBS/@Git/Check'
  version: '2.048'
-
  class: Dist::Zilla::Plugin::Git::Commit
  config:
    Dist::Zilla::Plugin::Git::Commit:
      add_files_in: []
      commit_msg: v%V%n%n%c
      signoff: 0
    Dist::Zilla::Role::Git::DirtyFiles:
      allow_dirty:
        - Changes
        - dist.ini
      allow_dirty_match: []
      changelog: Changes
    Dist::Zilla::Role::Git::Repo:
      git_version: 2.38.0
      repo_root: .
    Dist::Zilla::Role::Git::StringFormatter:
      time_zone: local
  name: '@RJBS/@Git/Commit'
  version: '2.048'
-
  class: Dist::Zilla::Plugin::Git::Tag
  config:
    Dist::Zilla::Plugin::Git::Tag:
      branch: ~
      changelog: Changes
      signed: 0
      tag: '1.130'
      tag_format: '%v'
      tag_message: v%V
    Dist::Zilla::Role::Git::Repo:
      git_version: 2.38.0
      repo_root: .
    Dist::Zilla::Role::Git::StringFormatter:
      time_zone: local
  name: '@RJBS/@Git/Tag'

xt/release/changes_has_content.t  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
    ok(_get_changes($newver), "$changes_file has content for $newver");
}
 
done_testing;
 
sub _get_changes
{
    my $newver = shift;
 
    # parse changelog to find commit message
    open(my $fh, '<', $changes_file) or die "cannot open $changes_file: $!";
    my $changelog = join('', <$fh>);
    if ($encoding) {
        require Encode;
        $changelog = Encode::decode($encoding, $changelog, Encode::FB_CROAK());
    }
    close $fh;
 
    my @content =
        grep { /^$newver(?:$trial_token)?(?:\s+|$)/ ... /^\S/ } # from newver to un-indented
        split /\n/, $changelog;
    shift @content; # drop the version line
 
    # drop unindented last line and trailing blank lines
    pop @content while ( @content && $content[-1] =~ /^(?:\S|\s*$)/ );
 
    # return number of non-blank lines
    return scalar @content;
}