Yet Another CPAN Grep

Chrome-Policy ( R/RW/RWP/Chrome-Policy-0.230410.tar.gz, RWP, 2023; MetaCPAN )

Chrome-Policy/lib/Chrome/Policy/Strict.pm ( view source; MetaCPAN )

t;
role Chrome::Policy::Strict;
use experimental qw( builtin );
use builtin qw( true false );
use JSON::PP qw();
use Data::Printer;
use Path::Tiny;

# @formatter:off
field %policy = (
# @formatter:on

 ,
);


method set_strict_policy ( $name = 'strict.json' , $type = 'managed' ) {
  my $json = JSON::PP -> new -> pretty( true );
  my $policy = $json -> encode( \%policy );
  # p $policy;
  my $file;

ue
  ForceYouTubeRestrict: 1
  SafeSitesFilterBehavior: 1

C<$name> is policy file name (F<strict.json> by default)

C<$type> is "managed" by default, but may also be "recommended" as per the policy s