1use strict; 2use warnings; 3use Test::More 'no_plan'; 4use Parse::IRC; 5my $line = ':pretend.dancer.server 005 CPAN MODES=4 CHANLIMIT=#:20 NICKLEN=16 USERLEN=10 HOSTLEN=63 TOPICLEN=450 KICKLEN=450 CHANNELLEN=30 KEYLEN=23 CHANTYPES=# PREFIX=(ov)@+ CASEMAPPING=ascii CAPAB IRCD=dancer :are available on this server'; 6my $parser = Parse::IRC->new( debug => 1 ); 7my $data = $parser->parse( $line ); 8is( ref $data, 'HASH', 'We got a hashref' ); 9is( scalar @{ $data->{params} }, 16, 'We got 16 params' ); 10