1 package HTML::Zoom::ZConfig;
4 use warnings FATAL => 'all';
7 parser => 'HTML::Zoom::Parser::BuiltIn',
8 producer => 'HTML::Zoom::Producer::BuiltIn',
9 filter_builder => 'HTML::Zoom::FilterBuilder',
10 selector_parser => 'HTML::Zoom::SelectorParser',
11 stream_utils => 'HTML::Zoom::StreamUtils',
17 my ($class, $args) = @_;
18 return $ALL_DEFAULT if $ALL_DEFAULT && !keys %{$args||{}};
20 foreach my $arg_name (keys %DEFAULTS) {
21 $new->{$arg_name} = $args->{$arg_name} || $DEFAULTS{$arg_name};
22 if (ref($new->{$arg_name})) {
23 $new->{$arg_name} = $new->{$arg_name}->with_zconfig($new);
25 require(do { (my $m = $new->{$arg_name}) =~ s/::/\//g; "${m}.pm" });
26 $new->{$arg_name} = $new->{$arg_name}->new({ zconfig => $new });
29 $ALL_DEFAULT = $new if !keys %{$args||{}};
33 sub parser { shift->{parser} }
34 sub producer { shift->{producer} }
35 sub filter_builder { shift->{filter_builder} }
36 sub selector_parser { shift->{selector_parser} }
37 sub stream_utils { shift->{stream_utils} }