1#!perl -T 2 3use Test::More; 4 5SKIP: { 6 my $not = 1; 7 8 eval( 'use Regexp::RegGrp::Data' ); 9 skip( 'Regexp::RegGrp::Data not installed!', $not ) if ( $@ ); 10 11 eval( 'use Regexp::RegGrp' ); 12 skip( 'Regexp::RegGrp not installed!', $not ) if ( $@ ); 13 14 plan tests => $not; 15 16 my $reggrp = Regexp::RegGrp->new(); 17 18 ok( ! $reggrp, 'Regexp::RegGrp->new() without args' ); 19}