File Coverage

blib/lib/X11/Protocol/Connection.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	4	4	100.0
total	16	24	66.6

#!/usr/bin/perl

package X11::Protocol::Connection;

# Copyright (C) 1997 Stephen McCamant. All rights reserved. This program
# is free software; you can redistribute and/or modify it under the same
# terms as Perl itself.

use Carp;
use strict;
use vars '$VERSION';

$VERSION = 0.01;

sub give {
    croak "X11 connection object doesn't support output";
}

sub get {
    croak "X11 connection object doesn't support input";
}

sub fh {
    croak "X11 connection object is incompatible with perl filehandles";
}

sub open {
    croak "X11 connection object can't open itself";
}

1;
__END__