File Coverage

lib/Kite.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition	2	9	22.2
subroutine	5	7	71.4
pod	3	3	100.0
total	25	40	62.5

#============================================================= -*-perl-*-
#
# Kite
#
# DESCRIPTION
#   Front-end for the Kite::* modules.  Currently just a placeholder
#   for a version number for the bundle.
#
# AUTHOR
#   Andy Wardley
#
# COPYRIGHT
#   Copyright (C) 2000 Andy Wardley.  All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
# VERSION
#   $Id: Kite.pm,v 1.3 2000/10/17 11:58:16 abw Exp $
#
#========================================================================

package Kite;

require 5.004;

use strict;
use Kite::Base;
use base qw( Kite::Base );
use vars qw( $VERSION $ERROR $DEBUG );

$VERSION = 0.4;
$DEBUG   = 0 unless defined $DEBUG;
$ERROR   = '';


sub profile {
    my $class = shift;
    require Kite::Profile;
    return Kite::Profile->new(@_)
	|| $class->error($Kite::Profile::ERROR);
}


sub xml2ps {
    my $class = shift;
    require Kite::XML2PS;
    return Kite::XML2PS->new(@_)
	|| $class->error($Kite::XML2PS::ERROR);
}

sub xml_parser {
    my $class = shift;
    require Kite::XML::Parser;
    return Kite::XML::Parser->new(@_)
	|| $class->error($Kite::XML::Parser::ERROR);
}

1;

__END__