use Geo::Hex;

# OO-style
my $geohex = Geo::Hex->new( version => 3 ); # v3 by default

$geohex->spec_version; # => 3

my ($lat, $lon, $level) = $geohex->decode( 'XM4885487' );
my $code                = $geohex->encode( $lat, $lon, $level );
# => XM4885487

my $zone = $geohex->to_zone( 'XM4885487' );
   $zone = $geohex->to_zone( $lat, $lon, $level );

# * zone object: hash value
# $zone->code  : GeoHex code
# $zone->level : Level
# $zone->lat   : Latirude of given GeoHex's center point
# $zone->lon   : Longitude of given GeoHex's center point
# $zone->x     : Mercator X coordinate of given GeoHex's center point 
# $zone->y     : Mercator Y coordinate of given GeoHex's center point 

my $polygon = $zone->hex_coords; # return the hex coords (six points hold lat and lon)


# Export function - GeoHex v3 by default
($lat, $lon, $level) = decode_geohex( $code );
$code = encode_geohex( $lat, $lon, $level );

# Explicit export function
use Geo::Hex v => 3, qw(latlng2geohex geohex2latlng latlng2zone geohex2zone);

# From latitude/longitude to hex code
$code = latlng2geohex( $lat, $lng, $level );
    # From hex code to center latitude/longitude
my ( $center_lat, $center_lng, $level ) = geohex2latlng( $code );

$geohex = Geo::Hex->new( %option );

( $lat, $lon, $level ) = $geohex->decode( $code );

$code = $geohex->encode( $lat, $lon, $level );

$zone = $geohex->to_zone( $code );

$zone = $geohex->to_zone( $lat, $lon, $level );

($lat, $lon, $level) = decode_geohex( $code );

$code = encode_geohex( $lat, $lon, $level );

use Geo::Hex v => 3;

$code = latlng2geohex( $lat, $lon, $level );

($lat, $lon, $level) = geohex2latlng( $code );

$zone = latlng2zone( $lat, $lon, $level );

$zone = geohex2zone( $code );