cpan/Devel-PPPort/parts/inc/HvNAME

   1 ################################################################################
   2 ##
   3 ##  $Revision: 1 $
   4 ##  $Author: mhx $
   5 ##  $Date: 2009/06/12 12:29:57 +0200 $
   6 ##
   7 ################################################################################
   8 ##
   9 ##  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
  10 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
  11 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
  12 ##
  13 ##  This program is free software; you can redistribute it and/or
  14 ##  modify it under the same terms as Perl itself.
  15 ##
  16 ################################################################################
  17
  18 =provides
  19
  20 __UNDEFINED__
  21
  22 =implementation
  23
  24 __UNDEFINED__ HvNAME_get(hv) HvNAME(hv)
  25
  26 __UNDEFINED__ HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0)
  27
  28 =xsubs
  29
  30 char*
  31 HvNAME_get(hv)
  32         HV *hv
  33
  34 int
  35 HvNAMELEN_get(hv)
  36         HV *hv
  37
  38 =tests plan => 4
  39
  40 ok(Devel::PPPort::HvNAME_get(\%Devel::PPPort::), 'Devel::PPPort');
  41 ok(Devel::PPPort::HvNAME_get({}), undef);
  42
  43 ok(Devel::PPPort::HvNAMELEN_get(\%Devel::PPPort::), length('Devel::PPPort'));
  44 ok(Devel::PPPort::HvNAMELEN_get({}), 0);
  45