Add Token support - code supplied

Please consider adding Token (for use in pathauto and such) support to playlist, below is the code for the most useful info I saw in $object. Not sure if I really need to pull it out of the array, was having trouble loading 'date' out of $object without invoking date the function, and wasn't sure if it was creation date, playlist date.

/*
 * Implementation of hook_token_list()
 */
function station_playlist_token_list($type = 'all') {
  if ($type == 'node' || $type == 'all') {
    $tokens['node']['station_playlistyyyy']  = t("The year the playlist started.");
    $tokens['node']['station_playlistmm']    = t("The two-digit month (01-12) the playlist started.");
    $tokens['node']['station_playlistmon']   = t("The three-letter month (jan-dec) the playlist started.");
    $tokens['node']['station_playlistdd']    = t("The two-digit day of the month (01-31) the playlist started.");
    $tokens['node']['station_playlistday']   = t("The three-letter day of the week (sun-sat) the playlist started.");
    $tokens['node']['station_playlistweek']  = t("The week number (1-52) of the year the playlist started.");
    $tokens['node']['station_playlistname']  = t("The content author name.");
    $tokens['node']['station_playlistprogram_title']  = t("The program title.");


    return $tokens;
  }
}

/*
 * Implementation of hook_token_values()
 */
function station_playlist_token_values($type, $object = NULL) {

  if ($type == 'node') {
 
    $station_playlistarray = $object->program_date;
    $station_playliststart=$station_playlistarray['year'].'-'.$station_playlistarray['month'].'-'.$station_playlistarray['day'];

    if (is_numeric($station_playliststart)) $station_playliststart = (int)$station_playliststart;
    elseif (is_string($station_playliststart)) $station_playliststart = strtotime($station_playliststart);


    $tokens['station_playlistyyyy'] = date('Y', $station_playliststart);
    $tokens['station_playlistmm']   = date('m', $station_playliststart);
    $tokens['station_playlistmon']  = date('M', $station_playliststart);
    $tokens['station_playlistdd']   = date('d', $station_playliststart);
    $tokens['station_playlistday']  = date('D', $station_playliststart);
    $tokens['station_playlistweek'] = date('W', $station_playliststart);	
    $tokens['station_playlistname']  = $object->name;
    $tokens['station_playlistprogram_title'] = $object->program_title;
    return $tokens;
  }
}

thanks!