API-MailboxOrg
view release on metacpan or search on metacpan
CONTRIBUTING.md view on Meta::CPAN
```
To install the required prequisite packages, run the following set of
commands:
```
$ dzil authordeps --missing | cpanm
$ dzil listdeps --author --missing | cpanm
```
The distribution can be tested like so:
```
$ dzil test
```
To run the full set of tests (including author and release-process tests),
add the `--author` and `--release` options:
```
$ dzil test --author --release
```
===================================
1.0.2 2022-03-21 06:34:00
* Update dependency list: add IO::Socket::SSL
1.0.1 2022-03-18 12:53:00
* fix list of dependencies (#2, thanks Slaven @eserte)
* Handle boolean and array parameters (#1)
* add more tests
1.0.0 2022-03-17 18:42:00
* initial release
"MooX::Singleton" : "0",
"Params::ValidationCompiler" : "0.30",
"Scalar::Util" : "0",
"Type::Library" : "1.012",
"Type::Utils" : "1.012",
"Types::Mojo" : "0.04",
"Types::Standard" : "1.012",
"perl" : "5.024"
}
},
"test" : {
"requires" : {
"Pod::Coverage::TrustPod" : "0",
"Test::Exception" : "0",
"Test::More" : "0",
"Test::RequiresInternet" : "0",
"Test::Spec" : "0"
}
}
},
"provides" : {
Makefile.PL view on Meta::CPAN
"Types::Standard" => "1.012"
},
"TEST_REQUIRES" => {
"Pod::Coverage::TrustPod" => 0,
"Test::Exception" => 0,
"Test::More" => 0,
"Test::RequiresInternet" => 0,
"Test::Spec" => 0
},
"VERSION" => "1.0.2",
"test" => {
"TESTS" => "t/*.t t/types/*.t"
}
);
my %FallbackPrereqs = (
"Carp" => 0,
"IO::Socket::SSL" => 0,
"JSON::PP" => 0,
"Mojolicious" => 8,
VERSION
version 1.0.2
SYNOPSIS
use API::MailboxOrg;
use Data::Printer;
my $api = API::MailboxOrg->new(
user => 'test_name@example.tld',
password => 'test1234567789',
);
my $all_videochats = $api->videochat->list(
mail => 'test_name@example.tld',
);
p $all_videochats;
INFO
This is still pretty alpha. The API of this distribution might change.
ATTRIBUTES
* base_uri
* mail
* mailinglist
* password
* passwordreset
* spamprotect
* test
* user
* utils
* validate
* videochat
MORE INFOS
requires "Moo" => "1.003001";
requires "MooX::Singleton" => "0";
requires "Params::ValidationCompiler" => "0.30";
requires "Scalar::Util" => "0";
requires "Type::Library" => "1.012";
requires "Type::Utils" => "1.012";
requires "Types::Mojo" => "0.04";
requires "Types::Standard" => "1.012";
requires "perl" => "5.024";
on 'test' => sub {
requires "Pod::Coverage::TrustPod" => "0";
requires "Test::Exception" => "0";
requires "Test::More" => "0";
requires "Test::RequiresInternet" => "0";
requires "Test::Spec" => "0";
};
on 'configure' => sub {
requires "ExtUtils::MakeMaker" => "0";
};
example/list_videochats.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use API::MailboxOrg;
use Data::Printer;
my $api = API::MailboxOrg->new(
user => 'test@example.tld',
password => 'a_password',
);
my $result = $api->videochat->list( mail => 'test@example.tld' );
p $result;
lib/API/MailboxOrg.pm view on Meta::CPAN
=head1 VERSION
version 1.0.2
=head1 SYNOPSIS
use API::MailboxOrg;
use Data::Printer;
my $api = API::MailboxOrg->new(
user => 'test_name@example.tld',
password => 'test1234567789',
);
my $all_videochats = $api->videochat->list(
mail => 'test_name@example.tld',
);
p $all_videochats;
=head1 INFO
This is still pretty alpha. The API of this distribution might change.
=head1 ATTRIBUTES
=over 4
lib/API/MailboxOrg.pm view on Meta::CPAN
=item * mail
=item * mailinglist
=item * password
=item * passwordreset
=item * spamprotect
=item * test
=item * user
=item * utils
=item * validate
=item * videochat
=back
lib/API/MailboxOrg/API/Test.pm view on Meta::CPAN
);
sub accountallowed ($self, %params) {
my $validator = $validators{'accountallowed'};
%params = $validator->(%params) if $validator;
my %opt = ();
return $self->_request( 'test.accountallowed', \%params, \%opt );
}
sub domainallowed ($self, %params) {
my $validator = $validators{'domainallowed'};
%params = $validator->(%params) if $validator;
my %opt = ();
return $self->_request( 'test.domainallowed', \%params, \%opt );
}
1;
__END__
=pod
=encoding UTF-8
lib/API/MailboxOrg/API/Test.pm view on Meta::CPAN
Parameters:
=over 4
=item * account
=back
returns: boolean
$api->test->accountallowed(%params);
=head2 domainallowed
Confirms if the domain can be administrated using the current ACLs
Parameters:
=over 4
=item * domain
=back
returns: boolean
$api->test->domainallowed(%params);
=head1 AUTHOR
Renee Baecker <reneeb@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2022 by Renee Baecker.
This is free software, licensed under:
t/001_base.t view on Meta::CPAN
};
for my $mod ( sort keys %{$methods} ) {
use_ok $mod;
}
for my $pkg ( sort keys %{$methods} ) {
can_ok $pkg, @{ $methods->{$pkg} };
}
done_testing();
t/002_hello-world.t view on Meta::CPAN
use API::MailboxOrg;
my $api = API::MailboxOrg->new(
user => 'dummy',
password => 'dummy',
);
my $result = $api->hello->world;
is $result, "Hello World!";
done_testing;
t/author-critic.t view on Meta::CPAN
#!perl
BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit
}
}
use strict;
use warnings;
use Test::Perl::Critic (-profile => "perlcritic.rc") x!! -e "perlcritic.rc";
all_critic_ok();
t/author-no-bom.t view on Meta::CPAN
BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit
}
}
use strict;
use warnings;
# this test was generated with Dist::Zilla::Plugin::Test::NoBOM 0.002
use Test::More 0.88;
use Test::BOM;
my @files = (
'lib/API/MailboxOrg.pm',
'lib/API/MailboxOrg/API/Account.pm',
'lib/API/MailboxOrg/API/Backup.pm',
'lib/API/MailboxOrg/API/Base.pm',
'lib/API/MailboxOrg/API/Blacklist.pm',
t/author-no-bom.t view on Meta::CPAN
'lib/API/MailboxOrg/APIBase.pm',
'lib/API/MailboxOrg/Types.pm',
't/001_base.t',
't/002_hello-world.t',
't/types/001_hashref_restricted.t',
't/types/002_boolean.t'
);
ok(file_hasnt_bom($_)) for @files;
done_testing;
t/author-no-tabs.t view on Meta::CPAN
BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit
}
}
use strict;
use warnings;
# this test was generated with Dist::Zilla::Plugin::Test::NoTabs 0.15
use Test::More 0.88;
use Test::NoTabs;
my @files = (
'lib/API/MailboxOrg.pm',
'lib/API/MailboxOrg/API/Account.pm',
'lib/API/MailboxOrg/API/Backup.pm',
'lib/API/MailboxOrg/API/Base.pm',
'lib/API/MailboxOrg/API/Blacklist.pm',
t/author-no-tabs.t view on Meta::CPAN
'lib/API/MailboxOrg/API/Videochat.pm',
'lib/API/MailboxOrg/APIBase.pm',
'lib/API/MailboxOrg/Types.pm',
't/001_base.t',
't/002_hello-world.t',
't/types/001_hashref_restricted.t',
't/types/002_boolean.t'
);
notabs_ok($_) foreach @files;
done_testing;
t/author-pod-coverage.t view on Meta::CPAN
#!perl
BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit
}
}
# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests.
use Test::Pod::Coverage 1.08;
use Pod::Coverage::TrustPod;
all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });
t/author-pod-syntax.t view on Meta::CPAN
#!perl
BEGIN {
unless ($ENV{AUTHOR_TESTING}) {
print qq{1..0 # SKIP these tests are for testing by the author\n};
exit
}
}
# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
use strict; use warnings;
use Test::More;
use Test::Pod 1.41;
all_pod_files_ok();
t/types/001_hashref_restricted.t view on Meta::CPAN
my $type = HashRefRestricted([qw/a b/]); # allow keys a and b only
dies_ok { $type->( { c => 1, a => 2 } ) };
};
it 'dies on non-hashrefs - arrayref' => sub {
my $type = HashRefRestricted([qw/a b/]); # allow keys a and b only
dies_ok { $type->( [] ) };
};
};
runtests if !caller;
t/types/002_boolean.t view on Meta::CPAN
it 'doesn\'t allow strings other than ""' => sub {
my $obj = TestClass->new;
dies_ok {
$obj->true_or_false( "true" );
};
};
};
runtests if !caller;
( run in 0.434 second using v1.01-cache-2.11-cpan-87723dcf8b7 )