File tree Expand file tree Collapse file tree 5 files changed +5
-23
lines changed Expand file tree Collapse file tree 5 files changed +5
-23
lines changed Original file line number Diff line number Diff line change @@ -20,8 +20,6 @@ use Parse::PMFile ();
20
20
use Path::Tiny qw( path ) ;
21
21
use Try::Tiny qw( catch try ) ;
22
22
23
- with ' MetaCPAN::Role::Logger' ;
24
-
25
23
has archive => (
26
24
is => ' ro' ,
27
25
isa => ' MetaCPAN::Model::Archive' ,
Original file line number Diff line number Diff line change @@ -270,8 +270,6 @@ sub _get_release_model {
270
270
distinfo => $d ,
271
271
file => $archive_path ,
272
272
model => $self -> model,
273
- level => $self -> level,
274
- logger => $self -> logger,
275
273
status => $self -> detect_status( $d -> cpanid, $d -> filename ),
276
274
);
277
275
Original file line number Diff line number Diff line change @@ -17,12 +17,8 @@ my $archive_file = File::Temp->new;
17
17
getstore $url , $archive_file -> filename;
18
18
ok -s $archive_file -> filename;
19
19
20
- my $release = MetaCPAN::Model::Release-> new(
21
- logger => $config -> {logger },
22
- level => $config -> {level },
23
- file => $archive_file -> filename,
24
- );
25
- $release -> set_logger_once;
20
+ my $release
21
+ = MetaCPAN::Model::Release-> new( file => $archive_file -> filename );
26
22
27
23
is $release -> file, $archive_file -> filename;
28
24
Original file line number Diff line number Diff line change @@ -14,12 +14,7 @@ subtest 'basic dependencies' => sub {
14
14
= fakecpan_dir-> child(
15
15
' /authors/id/M/MS/MSCHWERN/Prereqs-Basic-0.01.tar.gz' );
16
16
17
- my $release = MetaCPAN::Model::Release-> new(
18
- logger => $config -> {logger },
19
- level => $config -> {level },
20
- file => $file ,
21
- );
22
- $release -> set_logger_once;
17
+ my $release = MetaCPAN::Model::Release-> new( file => $file );
23
18
24
19
my $dependencies = $release -> dependencies;
25
20
Original file line number Diff line number Diff line change @@ -23,13 +23,8 @@ foreach my $test (
23
23
die ' You need to build your fakepan (with t/fakepan.t) first'
24
24
unless -e $path ;
25
25
26
- my $release = MetaCPAN::Model::Release-> new(
27
- logger => $config -> {logger },
28
- level => $config -> {level },
29
- file => $path
30
- );
31
- $release -> set_logger_once;
32
- my $meta = $release -> metadata;
26
+ my $release = MetaCPAN::Model::Release-> new( file => $path );
27
+ my $meta = $release -> metadata;
33
28
34
29
# some way to identify which file the meta came from
35
30
like eval { $meta -> generated_by }, qr / ^$genby / ,
You can’t perform that action at this time.
0 commit comments