labelCacheMemberObj

my ($label,$box_minx,$box_miny,$box_maxx,$box_maxy,$text);
while ( $label = $map->nextLabel() ) { # ** labelCacheMemberObj **
  if ( $label->{status} ) {
    my $point = $label->{point};
    $box_minx = $point->{x} - 15;
    $box_miny = $point->{y} - 10;
    $box_maxx = $point->{x} + 15;
    $box_maxy = $point->{y} + 10;
    $text = "String = $label->{string}";
  }
}

---

back to PerlMapScript