App-news
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
}
},
"configure" : {
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
"DateTime::Format::Mail" : "0",
"Modern::Perl" : "1.20180701",
"Mojolicious" : "9",
"perl" : "5.026000"
}
}
},
"release_status" : "stable",
"resources" : {
"repository" : {
"type" : "git",
"url" : "https://alexschroeder.ch/cgit/news",
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
name: App-news
no_index:
directory:
- t
- inc
requires:
DateTime::Format::Mail: '0'
Modern::Perl: '1.20180701'
Mojolicious: '9'
perl: '5.026000'
resources:
repository: https://alexschroeder.ch/cgit/news
version: 1.09
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
os_unsupported if $^O eq 'MSWin32';
WriteMakefile(
NAME => 'App::news',
VERSION_FROM => 'lib/App/news.pm',
ABSTRACT => 'a web front-end for a news server',
AUTHOR => 'Alex Schroeder',
LICENSE => 'agpl_3',
MIN_PERL_VERSION => '5.26.0', # Modern::Perl '2018'
EXE_FILES => [
'script/news',
],
PREREQ_PM => {
'Mojolicious' => 9.00,
'Modern::Perl' => 1.20180701, # for '2018'
'DateTime::Format::Mail' => 0,
},
META_MERGE => {
'meta-spec' => { version => 2 },
resources => {
repository => {
type => 'git',
url => 'https://alexschroeder.ch/cgit/news',
web => 'https://alexschroeder.ch/cgit/news/about/',
},
lib/App/news.pm view on Meta::CPAN
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
package App::news;
use Modern::Perl '2018';
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(wrap html_unwrap ranges sranges);
our $VERSION = 1.09;
=head1 NAME
App::news - a web front-end for a news server
t/00-basic.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use Net::NNTP;
our $port;
require './t/test.pl';
diag "Client connecting to $port...";
# verify that connection is possible
t/01-quit.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use Net::NNTP;
our $port;
require './t/test.pl';
diag "Starting NNTP on $port";
$ENV{NNTPSERVER} = "localhost:$port";
my $nntp = Net::NNTP->new();
ok($nntp->quit, "QUIT");
t/02-wrap.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use App::news qw(wrap);
is(wrap("Short line"), "Short line\n", "short");
my $haiku = <<EOT;
A long line lingers
It trails off softly as I
Hear the children play
EOT
t/04-ranges.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use App::news qw(ranges sranges);
is(sranges(ranges(1)), "1", "one");
is(sranges(ranges(1,2)), "1-2", "two");
is(sranges(ranges(1,2,3,4)), "1-4", "four");
is(sranges(ranges(2,3,4)), "2-4", "two-four");
is(sranges(ranges(1,3,4)), "1,3-4", "missing two");
is(sranges(ranges(1,2,4)), "1-2,4", "missing three");
is(sranges(ranges(1,4)), "1,4", "missing two and three");
t/10-groups.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use Test::Mojo;
our $port;
require './t/test.pl';
diag "Starting News Client on $port";
$ENV{NNTPSERVER} = "localhost:$port";
my $t = Test::Mojo->new(Mojo::File->new('script/news'));
t/20-post.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use Test::Mojo;
our $port;
require './t/test.pl';
diag "Starting News Client on $port";
$ENV{NNTPSERVER} = "localhost:$port";
my $t = Test::Mojo->new(Mojo::File->new('script/news'));
t/30-replies.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use Test::Mojo;
use List::Util qw(first);
our $port;
require './t/test.pl';
diag "Starting News Client on $port";
$ENV{NNTPSERVER} = "localhost:$port";
t/40-tags.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use Test::Mojo;
use List::Util qw(first);
our $port;
require './t/test.pl';
diag "Starting News Client on $port";
$ENV{NNTPSERVER} = "localhost:$port";
t/50-latest.t view on Meta::CPAN
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use Test::Mojo;
our $port;
require './t/test.pl';
diag "Starting News Client on $port";
$ENV{NNTPSERVER} = "localhost:$port";
my $t = Test::Mojo->new(Mojo::File->new('script/news'));
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use Modern::Perl;
use Test::More;
use Mojo::IOLoop;
use Encode;
our $port = Mojo::IOLoop::Server->generate_port;
our $pid = fork();
END {
# kill server
if ($pid) {
view release on metacpan - search on metacpan
( run in 2.294 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )