File Coverage

blib/lib/GDA.pm

Criterion	Covered	Total	%
statement	15	31	48.3
branch	0	12	0.0
condition			n/a
subroutine	5	7	71.4
pod			n/a
total	20	50	40.0

#!/usr/bin/perl -w
#
# GDA.pm
#
# $Revision: 1.3 $
#
# TODO:
#
#   * Don't hardcode the app name, etc. in init().
#
# Copyright (C) 2001 Gregor N. Purdy. All rights reserved.
#
# This program is free software. It may be modified and/or
# distributed under the same terms as Perl itself.
#

use strict;

package GDA;

use Carp;

use vars qw($VERSION);
$VERSION = '0.2';

use Inline 'C';

use Inline 'C' => Config =>
  INC          => '-I/usr/include/gda -I/usr/include/glib-1.2 -I/usr/lib/glib/include -I/usr/include/gtk-1.2 -I/usr/include/gnome-xml',
  AUTO_INCLUDE => '#include "gda-config.h"',
  LIBS         => '-lgda-common';

  Inline->init;

my $imported = 0;

sub import
{
  my $package = shift;

  return if $imported;

  croak "GDA.pm: usage: use GDA , , ...;\n"
    . "  Caller did: use GDA " . join(', ', map { "'$_'" } @_) . ";\n"
    . "  (If this message is for a GDA::* module, perhaps you forgot to\n"
    . "  'use GDA ...' in your main program?)"  unless @_ >= 2;

  my $app = shift;
  my $ver = shift;

  my $prog;

  if (@_) {
    $prog = shift;
  } else {
    $prog = $0;
  }

  # TODO: Why were we getting undefs in the first place ('under make test')?

  $app  = '' if not defined $app;
  $ver  = '' if not defined $ver;
  $prog = '' if not defined $prog;

  init($app, $ver, $prog);
  $imported++;
}

sub imported
{
  return $imported;
}

1;

=head1 NAME

GDA - GNU Data Access library Perl bindings

=head1 SYNOPSIS

  use GDA 'my_app', 'my_version', 'my_progname';

Initializes the underlying C library.

See the other B modules for the real functionality.

=head1 DESCRIPTION

A suite of Perl modules which wrap the C library's API.

You must

  use GDA ...;

before using any of the other B modules. If you don't, you'll get
complaints from the B module (at best), or crashes and core dumps
(at worst).

=head1 SEE ALSO

B, B, B and B.

=head1 AUTHOR

Gregor N. Purdy [e-mail]

=head1 LICENSE

This program is free software. It may be modified and/or
distributed under the same terms as Perl itself.

=head1 COPYRIGHT

Copyright (C) 2001 Gregor N. Purdy. All rights reserved.

=cut

__DATA__