#! /usr/bin/env perl

# PODNAME: pihole
# ABSTRACT: CLI interface to the WWW::PiHole module

use v5.37.9;
use WWW::PiHole;
use Data::Printer;

my $pihole = WWW::PiHole -> new;

# say $pihole -> status;

# say $pihole -> enable;
# say $pihole -> disable;

# p $pihole -> add( 'www.remove.me' );
# p $pihole -> remove( 'www.remove.me' );

# p $pihole -> recent;

# p $pihole -> add_dns( 'custom.local' , '192.168.1.1' );
# p $pihole -> remove_dns( 'custom2.local' , '192.168.1.1' );

# p $pihole -> add_cname( 'redirect.this' , 'www.example.com' );
p $pihole -> remove_cname( 'redirect.this' , 'www.example.com' );

__END__

=pod

=encoding UTF-8

=head1 NAME

pihole - CLI interface to the WWW::PiHole module

=head1 VERSION

version 0.230630

=head1 AUTHOR

Elvin Aslanov <rwp.primary@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2023 by Elvin Aslanov.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
